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Chapter 1: Fundamentals of the C-128 


1.1 Introduction to the Commodore 128 


After the success of the C-64, Commodore brought out the Plus 4, 
C-16, and C-116. These computers didn't really offer anything new, but 
the Commodore 128 does. It's really three computers in one: the 
well-known C-64, with mountains of software available for it; also, it 
contains a new computer based on the "success chips" (the 6510 (6502), 
VIC, SID, 6526, etc); and last, it is a CP/M computer. In total, it's a brand 
new computer with lots to offer. 


The C-128 has an 80-column video controller, so it has the potential of 
becoming a professional machine. The VIC chip and the 6510 have been 
changed slightly, though they remain basically the same. It's hard to 
understand why the 65C02 was not selected as the microprocessor for the 
C-128, since it runs faster, is compatible with the 6502, and has additional 
useful commands. This would not have affected the C-64 mode at all. The 
microprocessor which Commodore did choose is the 8500, which can run 
twice as fast as its predecessor, the 6510. 


The C-128 is also a CP/M computer, it uses CP/M 3.0+. CP/M 3.0 is 
the version for 128K computers. The Z-80 processor runs at 4MHz. The 
speed decreases when the bus is accessed, since it was not designed to 
handle this speed. 


We'll be concentrating on both the C-64 and C-128 modes, since they 
are equally important and equally interesting. The most interesting is the 
C-128 mode. As a result, the operating system ROM listing and zero page 
maps are for this mode. Some things can be better explained in the C-64 
mode, such as the VIC chip. 


This book is the latest in a compehensive series of books from 
ABACUS Software & Data Becker. We'll go into each component 
individually and in detail so that the BASIC programmer, whether beginner 
or advanced, can get an in-depth look. The assembly-language programmer 
can get the most out of the information presented as well. Naturally, we 
cannot include all of the C-128's capabilities. This book is not intended as 
an introduction to BASIC. 
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Commodore has provided the 128 with an advanced version of BASIC 
to make use of their advanced computer, BASIC 7.0. Here are some of the 
important features of the C-128: 


* 128K of dynamic RAM — 

* 2 x 4K character generator 

* Color video controller (VIC) with hi-res graphics 

* 80-column video controller (VDC) with RGB output | 

* Hi-res graphics on the 80-column monitor 

* Synthesizer with three independent voices (polyphonic) 
* 32K BASIC ROM 

* 16K operating system 

* 2 parallel I/O ports 

* 2 output screens available 


At this time we'll be discussing the various input and output ports of the 
C-128. The outputs for the monitors are not discussed here, since a special 
chapter 1s devoted to the chips that generate the video signals. 


Ht) 


1.2 The Datasette Connection 


The Datasette connections is virtually identical to that found in the C-64. 
The importance of the Datasette has dropped markedly since the price of the 
disk drive has been reduced. Only Commodore cassette recorders can be 
connected to this interface. The recorders are of high quality and have 
proven very reliable in the past. 


The Datasette gets its power via its connector to the C-128. The data 
travels serially to and from the Datasette through the cable. In addition to the 
lines for read and write data, there is a line for turning the motor on and off 
and a line to check to see if the PLAY button is depressed. The figure gives 
the pin layout for this interface: 






CASSETTE MOTOR 


CASSETTE READ 
CASSETTE WRITE 
CASSETTE SENSE 
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1.3 The User Port 


The user port is a 8-bit parallel interface. The user port can be 
programmed to set any or all of the 8 bits to either input or output. This 
interface is used frequently by experimenters and individuals interested in 
computer hardware. The user port can be programmed from BASIC using 
PEEK and POKE commands. Two handshake lines are available for 
process control. | 


To give you an idea of how to program the user port, we have included 
a short example. Our example circuit consists of four switches, four 
light-emitting diodes, eight resistors, and one IC. This should be enough to 
teach you the basic concepts of data input and output using the user port. 
The circuit diagram is shown at the end of this section; it is very simple, so 
we have not documented it here. 


Since there are so many connections on the user port, we must first 
explain which connections are actually available to the user. If you are not 
using an RS-232 cartridge, you can use the following lines without 
affecting the normal operation of the computer: (1, 2, 4-8, 10-12, A-N). 


The layout of the user port lines: 


1 GND 

2 +5V; up to 100mA 

3 -Reset; connected to the processor reset line 

4 CNT1; connected to CNT on CIA1 

5 SP1; connected to SP on CIA1 

6 CNT2; CNT line on CIA2 

7 SP2; connected to SP on CIA2 

8 -PC2; handshake output on CIA2 

9 ATN OUT; control line of the serial bus, comes from 
PA3 on CIA2 | 

10 9V; 100 mA max. 


11 Opposite pole for 10 
GND 


A GND 

B -FLAGZ2; handshake input on CIA2 
C-L PBO-PB7; I/O lines from CIA2 

M__— PA2?; I/O line from CIA2 

N GND | 
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Back to our example. Data lines PBO-PB7 can be programmed 
individually for input or output. We will use lines PBO-PB3 as input and 
lines PB4-PB-7 as output. This data direction is assigned by simply setting 
the data direction register for data port B at address 56579. A set bit 
indicates output on the corresponding bit of data port B (address 56577); a 
cleared bit indicates input on the corresponding bit of port B. We use the 
following command to set the data directions for our example (bits 0-3 as 
input, 4-7 as output): 


POKE 56579,240 


_ This sets the high order bits and the corresponding bits of data port B 
are set to output while the rest are set to input. 


How do we use our little circuit? Nothing could be easier! 
PRINT PEEK(56577) AND 15 
returns the values of the four switches and the command 
POKE 56577,X __ 


can be used to turn the LEDs on and off, where the value X may be a 
combination of the values 16, 32, 64, and 128--the lower bits are only used 
for reading. 


If you have a project of your own already planned--you want to help 
your wife and connect the washing machine to the Commodore 128--be 
sure to pay attention to the following so as not to damage your computer: 


When using the user port for input, the input voltage must not exceed 5 
volts. A voltage from 0 to 0.6 volts is interpreted as zero, while a voltage 
from 1.6 to 5 volts is interpreted as one. All voltages between 0.7 and 1.5 
volts will be randomly interpreted as zero or one. 


If you use the user port for output, note that the outputs can drive only 
one TTL input. They cannot directly drive an LED--this would lead to 
damage to the CIA. It is recommended that you use a buffer, as in our 
example. 


Above all, NEVER connect an external voltage to a port with a bit 


programmed as output. Make sure you load the data direction register with 
the proper values so you don't mistakenly program an input bit as output. 
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If you want the computer to power your project, remember that no more 
than 100 mA of current are available. If this maximum is exceeded slightly, 
the cassette recorder will refuse to work properly and then the fuse inside 
the C-128 will blow; finally the primary fuse in the power supply will blow. 
Hopefully, nothing else will be damaged. 


This is intended only as a brief introduction to using the user port in a 
simple application. If you want to use the other lines for more complex 
tasks, see Chapter 4 for more information on the CIA. 


USER-PORT 


i 


at 4. * 3300 Q 
aes 
7 i 


a 4 Switches 
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1.4 The RS-232 interface 


The RS-232 interface opens up the whole world of communications for 
the Commodore computer user. Most peripherals have an RS-232 interface, 
such as the laser printer used to print this book. Telephone modems are also 
connected using such an interface. RS-232 is the designation for an 
interface for serial data transfer only--parallel data transfer over the phone 
lines, for example, is not possible. | 


In serial transmission, the eight bits of a byte are sent one bit at a time, 
not all eight at once as in parallel data transmission. Serial transmission has 
the advantage that fewer lines are needed; the disadvantage is that it's 
slower. It is well-suited for transferring data via telephone lines because so 
few lines are required. | 


The software for using the RS-232 interface is built into the C-128 
operating system. The interface is available from Commodore as a cartridge 
which is inserted in the user port. The cartridge is necessary to make the 
voltage conversions to +12Volts for the true RS-232 standard. 


The RS-232 interface is assigned device address 2 by the operating 
system. If a logical file is opened with device 2, two 256-byte buffers are 
allocated: an input buffer and an output buffer. In the 128 mode these 
buffers are placed at addresses $0CO0 and $0D00. In the 64 mode, two 
pointers point to these buffers: $F7/$F8 points to the RS-232 input buffer 
and $F9/$FA points to the output buffer. You must also remember the 
following in C-64 mode: the buffer area is usually located in the upper area 
of unused memory. If a BASIC program uses the RS-232 interface, the 
program should begin with the OPEN command because it will erase all of 
the variables that BASIC stores in upper memory. Furthermore, no check is 
made to see if enough memory space is available. The CLOSE command 
frees the buffers again, but the variables are also erased since a CLR 
command is executed (other files are "forgotten"!). For this reason, you 
should not close the file until the end of the program. Only one RS-23?2 file 
may be open at a time. 


When an RS-232 data channel is closed, any transmission is broken off 
and the buffer is reset. If you want to wait until the entire contents of the 
buffer have been transmitted, use the command: 


SYS 61604 (JSR $FOA4) in the 64 mode or 
SYS 59372 (SSR $E7EC) in the 128 mode 
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This command should always be used before the CLOSE command. 


The parameters for data transfer are determined with a control register 
and a command register. These two registers are passed together with the 
filename when the file is opened. 


The control register defines the baud rate and determines the number of 
data bits and stop bits transmitted. The baud rate determines the speed of 
the data transfer. 1000 baud means that 1000 bits are transmitted per 
second. The stop bits are sent after the data word (5-8 bits). 


The command register determines the method of transfer, the parity 
checking, and the type of handshake. 


In the control register, the lowest four bits determine the baud rate 
according to the following table: 


Bit 3210 Decimal Baud rate 
0000 0 user baud rate, see below 
0001 1 50 
0010 2 75 
0011 3 110 
0100 4 134.5 
0101 5 150 
0110 6 300 
0111 7 600 
1000 8 1200 
1001 9 1800 
1010 10 2400 | 
1011 11 3600 (n.1.) 
1100 12 4800 (n.1.) 
1101 13 7200 (n.1.) 
1110 14 9600 (n.1.) 
11141 15 19200 (n.1.) 


The (n.i.) means that the given baud rate is not implemented and 
cannot be attained by the C-128. Therefore we can program baud rates 
between 50 and 2400. % 


The number of data bits is determined by bits 5 and 6: 
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Bit 6 5 Decimal Number of data bits 
00..~—~—~—C—tCO” 8 bits 

01 32 7 bits 

10 64 6 bits 

1 1 96 5 bits 


Bit 7 Decimal Number of stop bits 
a. _ 0 1 stop bit 
1 128 2 stop bits 


After we have defined the first byte, we must define the second byte, 
the command register. 


Bit 0 Decimal Handshake 
9. —_ 3-wire handshake 
1 1 X-wire handshake 
Bit 4 Decimal Transfer method 
Oo. a 0 Full duplex 
1 16 Half duplex 
Bit 765 Decimal Parity checking 
x x 0 0 No parity checking 
no 8th data bit 
001 32 Odd parity 
011 96 Even parity 
101 160 8th data bit always 1 
no parity checking 
111 224 8th data bit always 0 


A comment about handshaking: if you select a 3-wire handshake, the 
control lines CTS (Clear To Send) and DSR (Data Set Ready) are not 
checked when sending and receiving. This means that the computer sends 
the data (to a printer for example) whether the receiver is ready to process 
the data or not. If we want the device to be able to Stop the transmission, we 
must select X-wire handshake. The two control lines just mentioned must 
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be wired; the assumption is that the receiver can service these lines. If two 
computers are being connected, a 3-wire handshake is usually sufficient. 


Let's go through an example: We want to open an RS-232 data channel 
with the following parameters: 


* 2400 baud 

* 7 data bits (ASCTD) 
* 2 stop bits 

* No parity checking 
* 8th data bit always 0 
* Full duplex 

* 3-wire handshake 


After you have determined all the bits from the above tables, open the 
channel with the following OPEN instruction: 


OPEN 1,2,0,CHR$(10+0+128)+CHR$(0+0+224) 
The second byte in the OPEN instruction is usually CHR$(0). 


1.4.1 Programming the baud rate 


The various baud rates are implemented through the timers in the CIAs. 
You can also program baud rates that are not in the table, such as 111 baud. 
The maximum rate of 2400 baud cannot be exceeded, because the software 
in the operating system is too slow. The CIAs (or the timers) generate an 
NMI after a certain amount of time dependent on the baud rate. If we want 
to use our own baud rate, we can pass the corresponding timer values as the 
third and fourth characters of the filename in the OPEN command. The 
timer values can be obtained from the following formula: 


T = 492662/BAUD - 101 


The value which we get from this formula must be split into high and 
low bytes and then passed as the third and fourth characters of the filename. 
In the control register we use a zero instead of the baud rate (user baud 
rate), so that the operating system knows that we want to use our own baud 
rate. 
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The following example uses the same parameters as the previous 
example, except that the baud rate is set to 1000. 


100 BAUD=1000 

110 T=492662/BAUD-101 

120 TH=INT(T/256): TL=T AND 255 

130 OPEN 1,2,0,CHRS (128) +CHRS$ (224) +CHRS (TL) + 
CHRS (TH) 


Baud rates between 8 and 2400 baud can be obtained with the user 
baud-rate programming option. | 


1.4.2 Reading the status variable ST 


The status variable ST is used to determine if any errors occurred while 
transferring data via the RS-232, just as with the serial bus. The meaning of 
ST is somewhat different for the RS-232, however. The variable ST is reset 
(to zero) each time it is read in BASIC. Therefore, if you'll be checking the 
status variable multiple times you must store the value in a temporary value: 
A=ST. Now A can be checked multiple times without resetting the status 
variable ST. The status value should be available for multiple checks, so it 
must be stored in a temporary variable. 


Here is the bit by bit breakdown of the status variable ST. A set bit 
indicates that the given event occurred. 


Bit Description 
0 Parity error 
1 Framing error 
2 Receiving buffer full 
3 Receiving buffer empty 
4 CTS (Clear To Send) signal missing 
5 Unused 
6 DSR (Data Set Ready) signal missing 
7 Break signal received 


In the C-64 mode you can assign the memory area the RS-232 input 
and output buffers will be located. In the C-128 mode these buffers have 
hay gg locations. The pointers for these buffers are at addresses 

F7-$FA. | 
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1.5 Cartridge Port 


The cartridge port--also known as the expansion bus--is one of the most 
useful interfaces on the C-128. ROM cartridges can be inserted in this port; 
they might be games, BASIC extensions or something altogether different 
such as a MIDI interface. The address lines as well as the data lines of the 
computer are available on this interface. For this reason the computer is also 
very sensitive to damage here. 


First the pinout of the 44-pin connector: 


1 GND 

2-3 +5V 

4 -IRQ; connected to the processor IRQ line 

5 CR/-W; connected to the processor R/-W line 

6 DOT CLOCK; dot raster clock for the VIC, about 7.83 MHz 
7 -I/O1; usually =0 in address range $DE00 to $DEFF 

8 ~-GAME; input to AM (Address Manager) 

9 -EXROM; as above 

10 -1/O2; usually =0 in area $DFO0 to $DFFF 

11 -ROML; output from AM | 
12 BA; signal from VIC, indicates the validity of read data 


13 -DMA,; input. O=bus system reserved for external access 
14-21 CD7-CD0; data bus 
22 GND 
A GND 
B -ROMH,; output from AM 
-RESET 
D -NMI 


C 

E 02; system clock output 
F-Y | CA15-CAO; address bus 
Z GND 


Both the 128 and 64 modes test to see if the cartridge port is occupied 
when the computer is turned on or reset. If the cartridge port is occupied, 
the memory configuration is set appropriately in the address manager, and 
control of the computer is given to the cartridge and not the built-in ROM 
operating system. This is a very user-friendly feature, since the user need 
only insert the cartridge and turn the computer on to start the application. 
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Chapter 2: The VIC Chip 


As you already know, the Commodore 128 has three plugs for 
connecting monitors. Theoretically, all three can be used at once, but this 
wouldn't be terribly useful, since the two 40 column screens would be 
identical. 


Two of the three connectors are connected to the VIC chip. The VIC 
chip has been well-proven in the Commodore 64. The VIC chip is well 
liked since it has many fine features like the ability to display sprites. The 
VIC chip in the Commodore 128 has two additional registers which will be 
described later. It runs the display in the 40-column mode as well as BASIC 
7.0's representation of graphics. 


A television can be connected via the RF connector. This is a relatively 
popular solution because of the low cost. Depending on the television, the 
Screen quality may also be satisfactory, though it is not suited for long 
periods of working with the computer. This is because the carrier frequency 
is first modulated by the computer (it must be "broadcast") and then 
demodulated by the television receiver. The picture quality naturally suffers 
as a result of all this manipulation. 


If your wallet has recovered from the purchase of the Commodore 128, 
you might consider a color monitor such as the Commodore 1702. This 
monitor uses the second connection: the composite video output. Here ‘the 
signal does not need to be modulated or demodulated--pure screen 
information plus the synchronization pulse is sent to the monitor. These 
monitors are a bit more expensive, but they offer significantly better screen 
quality because the screen resolution is better. 


The VIC chip in the Commodore 128 has the same address as the 64, 
which makes sense, since it must also be accessed in the 64 mode. For the 
sake of compatibility the addresses must remain the same. 


Start address: $D000 


The VIC-II chip (we will call it VIC-II since it is not identical to its 
predecessor) cannot function with the 2MHz clock frequency (fast mode). 
The VIC-II chip contains the system clock. As you may know, the VIC chip 
uses the clock gaps (times in which the processor does not access the 
memory) in order to get characters out of the video RAM to refresh the 
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picture. This is done so as not to slow down the processor. If the processor 
is clocked at 2MHz, the operating speed is doubled and the clock gaps are 
halved. These clock gaps aren't long enough to access memory. The VIC-I 
chip switches the video output off and you get a single color picture (which 
you may recognize from cassette loading). The video controller responsible 
for the 80-column screen is not affected by this. It continues to display its 
80 columns per line. Switching from 1 to 2MHz can also be done in the 64 
mode! To do this, you must set bit 0 in register 48 of the VIC. 


POKE 53296,1 corresponds to the command FAST 
POKE 53296,0 corresponds to the command SLOW 


These two POKEs can also be used in the 64 mode. The FAST 
command is a bit different from the POKE command; the BASIC 7.0 
command FAST also causes the 40-column screen to be automatically 
switched off, so that the colorful garbage caused by the 2MHz mode does 
not appear on the screen. | 


The VIC chip not only performs all the tasks required to create a screen, 
it also handles the timing for the dynamic memory. 


Here are some features of the VIC chip: 


* 16 colors 

* sraphics-capable with 320x200 pixels (hi-res mode) 

* Four color graphics with 160x200 pixels (multi-color mode) 
* Multi-color mode possible in text mode 

* Display and management of 8 sprites» 

* Raster and sprite-collision interrupt 

* Creation of a standard NTSC signal 

* Movable video RAM and character generator 

* Independent handling of 16K of dynamic RAM 
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The pin layout of the VIC-H chip: 


1-7 
F 

9 
10 
11 
12 
13 
14 
15 
16 


All; 
AO/A8--A5/A1 


Processor data bus | 

O when one bit of the IMR and the IRR are equal 
Input, Light pen strobe 

Processor-bus action only takes place if CS=0 
0 = taking over data from bus 

O = data not ready at receiving device 
+12VDC 

Color information output 

Impulses to synchronize lines and screen 

O = VIC uses system bus, 1 = bus free 

Clock output 

Dynamic RAM control 

as above 


Input color frequency 

Input dot frequency 

Processor address-bus 

3; Multiplexed (video-) RAM address-bus 
(video-) RAM address-bus 

Processor address-bus 

Data from color RAM 

Processor data-bus 

+5V 

Keyboard-Interface-Control. These pins go 
directly to the (expanded) keyboard. 


2.1 Register Layout of the VIC Chip 


The VIC-II chip has 49 registers at the address $D000+(the register 
number). These registers are individually described: 


REG 0 


REG 1 


Sprite register 0: X-coordinate . . 
Here are 8 bits of the X screen coordinate of sprite 0. Bit 9 
(overflow bit) is found in register 16 of the VIC chip. 


Sprite register 0: Y-coordinate - . 

This register contains the Y-position of sprite 0. The 
Y-coordinate does not need an overflow (9th bit) because the 
maximum Y-value is 199. 
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Registers 2 through 15 correspond to registers 0 and 1 for sprites 1 to 
7. Each sprite has a register pair in the VIC chip: Sprite 0 has register pair 
0/1, sprite 1 the pair 2/3 ... sprite 7 the pair 14/15. 


REG 16 


REG 17 


REG 18 


REG 19 


REG 20 


REG 21 


REG 22 


REG 23 


MSb of the X-coordinates (note that the lower-case b in MSb 1s 
intentional! [This is to indicate bit, not byte]). This register 
contains the overflow bits from the X-coordinates of the sprites. 
A set bit means that the MSb (9th bit) of the corresponding sprite 
is set, O means not set. The MSb of sprite 0 is represented by bit 
0, the MSb of sprite 7 is set by bit 7. 


Control register 1 

Bit 0-2 : Offset of the upper screen border in raster lines. 
Bit3 :0=24 lines, 1=25 lines 

Bit4 :Q=screen off 

Bit5 : 1=standard bit-map mode (graphics) 

Bit6 : 1=extended color mode (text) 

Bit7 : Carry from register 18. 


Raster IRQ | 
Number of the raster line at which a raster IRQ should be 
generated. The 9th bit of the raster line is found in register 17. 


X-portion of the screen position at which the beam was found 
when a strobe was generated. 


As register 19, but the Y-portion. 


Sprite enable 

This register indicates whether a sprite is turned on (bit = 1) or 
off (bit = 0). Sprite 0 is represented by bit position 0, sprite 7 by 
bit 7 of the register. 


Control register 2 

Bits 0-2: Offset of the left screen border in raster dots. 
Bit 3: 0=38 characters, 1=40 characters (horizontal) 
Bit 4: Multi-color mode (graphics) 


Sprite expand X 


The sprites can be doubled in the x direction by setting the 
corresponding bit in this register. 
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REG 24 


REG 25 


REG 26 


REG 27 


REG 28 


REG 29 


REG 30 


REG 31 


REG 32 


Base address of the character generator and video RAM 
Bits 1-3: Address bits 11-13 for the character RAM base 
Bits 4-7: Address bits 10-13 for the video RAM 


IRR: Interrupt Request Register 

This register indicates which register generated an interrupt. 
Bit O: generator is REG 18 

Bit 1: generator is REG 31 

Bit 2: generator is REG 30 

Bit 3: generator is pin LP 

Bit 7: =1 when at least one other bit is one 


IMR: Interrupt Mask Register 
Layout like REG 25. If at least one bit in the IRR and IMR agree 
(IRR AND IMR<>0), an interrupt is generated (pin IRQ=0). 


Priority register (sprites) 
If the corresponding bit is set, the background character has 
precedence over the sprite. 


Multi-color register (sprites) 
If the bit representing a given sprite is set, that sprite is 
represented in multi-color mode. 


Sprite expand Y 
The sprites can be doubled in the Y-direction by setting the 
appropriate bit in this register. 


Sprite/sprite collision | 
Each sprite is assigned a bit. If two sprites touch each other, the 
two corresponding bits are set. These bits remain set until they 
are explicitly cleared! At the same time, bit 2 in the IRR is set. If 
bit 2 in the IMR is also set, an interrupt will be generated. 


Sprite/background collision 

Each sprite 1s assigned a bit. If a sprite touches the background, 
the corresponding bit is set. The bits remain set until they are 
explicitly reset! Bit 3 in the IRR is set; if bit 3 in the IMR is also 
set, an interrupt is generated. 


Exterior color (border color) 
The border color is set in this register (0-15). 


23 


Abacus Software C-128 Internals 


REG 33 Background color registers 0-3 ef 
to Background color register 0 determines the background color in 
REG 36 the "normal" text mode. If the multi-color mode is enabled, it 
accesses registers 1-3. 


REG 37 Sprite multi-color color 0/1 
and Sprites which are represented in multi-color can assume the back- 
REG 38 ground color, the sprite color, or the multi-color 0 and 1. 


REG 39 Color sprite 0-8 
to The colors for the individual sprites are placed in these registers. 


REG 47 Keyboard control register 
This register contains the status of the four keyboard interface 
pins KO to K3. Bits 0 to 3 are responsible for this. Bits 4-7 are 
unused and are always 1. 


REG 48 2MHz bit 
Bit 0 of this register determines whether the computer operates at 
2MHz or 1MHz. Bits 1-7 are unused. If the bit is set, all accesses 
from the VIC-II chip to the memory are halted, except for 
refreshing the dynamic RAM. 


NOTE: All of the following example programs must be entered in the 
64 mode. This is necessary because the BASIC 7.0 interpreter makes inputs 
to the VIC-II chip practically "ineffective". For example, if you switch the 
graphics on with the necessary POKE instructions, you will see only a flash 
on the screen. The same applies to programming sprites, etc. The reason for 
this is that the BASIC 7.0 interpreter must have its own method of interrupt 
control. You can, for example, create a moving sprite with the MOVSPR 
command; this can be done only with BASIC 7.0 using the interrupts. We 
will tell you how you can get around this interrupt control in Section 7.5. 


But even when the sprites aren't moving, the coordinates are always 
corrected by the BASIC 7.0 interpreter. You are probably asking yourself 
why you should program in the 64 mode when you own a 128. This is a 
good question, but the VIC chip can be programmed just as well from the 
64 mode as it can from the 128 mode. We will use "simple" POKE 
commands in the following sections, in order to give examples as close to 
assembly language as possible. Since programming the VIC chip would be 
ruined by the BASIC 7.0 interpreter, we will try out the following examples 
in the 64 mode. This will allow us to learn and understand the operation of 
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the VIC chip. Machine language programmers have to feel their way 
through step by step. In machine language (in the 128 mode), you can get 
around the annoying sprite corrections by changing the IRQ vector. 


2.2 The VIC Operating Modes 


As you may already know and can gather from the many registers, there 
are a number of possible ways to arrange the screen with the VIC chip. It is 
quite easy to do this in the 128 mode thanks to easy-to-use BASIC 7.0 
commands. In the 64 mode, it is somewhat more difficult to switch between 
the various modes since it must be done with POKE commands. 
Programming sprites in the 64 mode is also more complicated than it is in 
the 128 mode, in which you can easily move them about with the MOVSPR 
command. If you think the layout of the VIC chip doesn't interest you since 
you don't want to program in the 64 mode, you may not be right. If you 
want to program in machine language, you will need to learn more about the 
register layout of the VIC, which is what we want to do now. 


2.3 Sprites 


Sprites are movable, freely-definable figures with a resolution of 24 by 
21 points. Sprites can be represented in either the two-color mode (sprite 
color and background color) or the multi-color mode (four colors, but the 
resolution is cut to 12 by 21 points). The VIC chip can manage 8 sprites, 
which can be moved simultaneously on the screen. The sprites can assume 
their positions in a frame of 512 by 256 raster points, which means that 
sprites can be moved completely outside of the screen. | 


If a sprite is defined in the two-color mode, a set bit means a set point in 
the color defined for this sprite. An unset bit means transparent (the 
background color will be displayed). In the multi-color mode, two bits 
apply to one point, which means that one can define four colors. The 
possible bit combinations refer to the following colors: 


00: Transparent, background color (REG 33) 


01: Multi-color register 0 (REG 37) 
11: Multi-color register 1 (REG 38) 
10: Sprite-color register (REG 39-46) 
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You see that two colors (multi-color registers 0 and 1) are defined to be 
the same for all sprites. The sprites can differ from each other in at most one 
color. But let's define a sprite "from scratch". We won't use the BASIC 7.0 
commands, but only the commands available to us in the 64 mode (which 
can be used in the 128 mode as well). First we must define a sprite by 
means of DATA statements (the sprite editor does not exist in the 64 mode). 
These DATA lines should look like the following: 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


000,000,000 
000,000,000 
000,000,000 
000,000,000 
000,000,000 
000,000,000 
000,000,000 
003,255,255 
000,002,000 
192,170,128 
194,150,080 
234,150,080 
194,170,168 
192,170,168 
000,032,128 
000,170,160 
000,000,000 
000,000,000 
000,000,000 
000,000,000 
000,000,000 


In the normal development of a sprite, you would draw out the figure 
on paper before programming, and divide the paper up into a grid of 24 by 
21 points. This gives 21 lines of 24 points each. These 24 points are then 
grouped into three 8-bit groups which can then be stored as bytes. Every 
filled box means a set bit, an empty box means an unset bit. In the 
multi-color mode this is more difficult. You must insert one of four bit 
combinations from a self-defined color table. 


Note: You must first consider what colors you will define in common to 


all sprites, and which you want to have as the individual color for each 
sprite. 
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Once you have done this you can calculate the individual bytes and 
write them down. These values are then given in rows of DATA lines, as in 
our example. Our example sprite is a helicopter. You probably didn't 
recognize it in the DATA statements. 


2.3.4 Address of the sprites 


We have our data and now we need to store it someplace. There is a 
pointer for each sprite which tells the VIC chip where it can find the sprite. 
These pointers are found in addresses 2040 to 2047, immediately following 
the video RAM. Each sprite needs 3x21=63 bytes. You have probably 
already noticed that each pointer need only be one byte long and does not 
give an absolute address. It gives the position "pointer times 64," which 
accounts for exactly 16K. If you move the start address of the video RAM, 
the sprite pointers also move as well as their start addresses. For the sake of 
rere let us assume that sprite number 1 is defined at address 

13*64=832. 


POKE 2041,13 


Address: 2040 2041 2042 2043 2044 2045 2046 2047 
Sprite#: QO 1 2 3 4 5 6 7 


You can assign this address to other sprites, meaning that several 
sprites will have the same appearance. But to display our sprite, we first 
need to POKE the values from the DATA statements into the correct 
memory addresses. 


10 FOR I=0 TO 63 

20 READ D 

30 POKE 13*64+I,D 

40 NEXT 

50 POKE 2041,13: REM SPRITE 1 AT ADDRESS 832 
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2.3.2 Turning on the sprite 


When you start the program, you will notice that something is still _ 
missing. We need to explicitly turn our sprite on! The best way to do this is 
with a logical OR of the corresponding bit in register 21, since a direct 
POKE would erase any other sprites. 

POKE 53248+21,PEEK(53248+21) OR 2 
turns sprite 1 on. If you want to turn on sprites 0 and 7, for example: 
POKES53248+21,PEEK(53248+21) OR 1 OR 128, or better yet: 
POKES3248+21,PEEK(53248+21) OR 129. 
To turn off sprite 1: 

POKE 53248+21,PEEK(53248+21) AND NOT(2). 
If you want to turn off several sprites at once, such as sprites 0 and 7, 
POKE 53281+21,PEEK(53248+21) AND NOT(1 OR 128) 

it can be done by a logical OR of the sprites to be turned off, which is then 
negated and then ANDed with the original value. In our example program, 
we want to turn our sprite on: 
60 POKE 53248+21,1: REM TURN ON SPRITE 1 
Sprite: 76543210 
Bit 76543210 
2.3.3 Color 

We want to be able to define the color of our sprite, otherwise we might 
not be able to see it: 

70 POKE 53248+39+1, 5: REM COLOR = GREEN 


This is done in registers 39 through 46: register 39 defines the color for 
sprite 0; register 46, correspondingly, defines the color of sprite 7. 
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The following colors are available: 


0 Black 8 Orange 

1 White 9 Brown 

2 Red 10 Light red 

3 Cyan 11 Grey 1 

4 Purple 12 Grey 2 

) Green 13 Light green 
6 Blue 14 Light blue 
7 Yellow 15 Grey 3 


2.3.4 Position 


After you have made the color specification and started the program 
with RUN, you still won't see anything because the sprite is positioned 
outside of the screen area. Registers 2 and 3 must be loaded with the 
appropriate values in order to assign a position to sprite 1: 


80 POKE 53248+2, 50 : REM X-COORDINATE 
90 POKE 53248+3, 70 : REM Y-COORDINATE 


You can move your sprite across the whole screen with a loop. Many 
readers may start to groan here. You know that BASIC 7.0 handles all of 
the work with sprites for you. But there's even more that must be done in 
64 mode. If you want to position the sprite at X-coordinate 310, for 
example, eight bits aren't enough. Here you must set the ninth bit of the 
corresponding sprite in register 16 (or reset it if you are moving the sprite 
from right to left). We position our sprite at X-coordinate 310: 


POKE 53248+16, 2: REM SPRITE 1 - SET 9TH BIT 


If you want to avoid disturbing other sprites with this command, you 
must again address the appropriate bit explicitly: 


POKE 53248+16, PEEK(53248+16) OR 2 


Let's move our sprite from left to nght across the screen: 
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FOR I=0 TO 400 
POKE 53248+2, I AND 255 : 

REM MASK OUT LOWER 8 BITS 
POKE 53248+16, PEEK (53248+16) AND NOT 2 OR 
2*ABS (I>255) 
NEXT I 


The line just before the last is a bit complicated: The most-significant bit 
of sprite 1 is reset to zero by AND NOT 2. The corresponding bit is again 
set if necessary (X-coordinate greater than 255) by OR 2*ABS(I>255). 
This is all done without disturbing the other bits. 


2.3.5 Expanding a sprite 


Another important and useful capability is the ability to display sprites 
twice as large in the horizontal and/or vertical directions. The VIC chip has 
two registers available for this purpose: X-expand and Y-expand. Again, 
each sprite is represented by a bit. By setting this bit, the corresponding 
sprite is expanded in the X or Y direction. In our example we will expand 
our sprite in both the X and Y directions: 


POKE 53248+23,2 : REM DOUBLE SPRITE 1 IN Y-DIRECTION 
POKE 53248+29,2 : REM DOUBLE SPRITE 1 IN X-DIRECTION 


Since we can expand a sprite in both the X and Y directions, we have 
the ability to enlarge our sprite by a factor of four. 


2.3.6 Background 


You have no doubt noticed when entering or changing the example 
program that the sprite does not scroll along with the rest of the screen. 
Sprites also remain visible when the screen is cleared. The sprites are 
ultimately determined by their position. If you want to remove a sprite from 
the screen, you can either a) turn it off, or b) position it outside the screen. 


Sprites have another noteworthy property. If you move the text cursor 
over a sprite and start typing, the sprite covers the letters--the letters are 
visible only where the sprite is transparent. It almost has the appearance of a 
three-dimensional picture. 
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The sprites and the background can be imagined as two separate layers. 
It is possible to inform the VIC chip that we do not want to have individual 
Sprites in the foreground. There is a priority level for each sprite that tells 
the VIC whether the sprite has precedence over the background or not. In 
our example, the letters would appear on top and the sprite would be 
covered up. In order to move a sprite behind the background, the 
corresponding bit in register 27 must be set. We want to take away the 
priority of our helicopter: 


POKE 53248+27,2 


Now the helicopter appears behind the letters. In order to put it in front 
again, we need only reset the bit: 


POKE 53248+27,0 
Register 27 : Background priority 


Bit 76543210 
Prior: 76543210 


You have no doubt noticed that all registers are organized in the same 
manner. One byte is all that is required in order to represent all eight 
possible sprites. Bit 0, the lowest order bit, always stands for sprite 0 while 
bit 7 always corresponds to sprite 7. 


You may be wondering what happens when several sprites occupy the 
Same space on the screen. There are set rules for determining the appearance 
of the result. The sprite with the lowest number appears on "top" of the 
others. If sprites 0 and 6 come in contact with each other, for example, all 
of sprite 0 will be visible, while at best only an outline of sprite 6 will be 
visible. Sprite 6 will appear on top of sprite 7, sprite 5 on top of sprite 6, up 
to sprite 0 on top of sprite 1. The lower the sprite number, the higher the 
priority. 


2.3.7 Collision: Sprite-sprite 


It is also possible that two sprites will come into contact with each 
other, that is, they have at least one point in common. Often it is desirable 
to be able to detect such contact, especially for games. The VIC has a 
register just for this purpose: Register 30 gives the information if sprites 
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have collided, and if so, which sprites were involved. If, for example, 
sprites 0 and 6 collide, bits 0 and 6 of register 30 are set. If more than two 
sprites encounter each other, the bits of all the sprites involved are set. In 
our example--if sprites 0 and 6 encounter each other--we would get the 
following result: 


PRINT PEEK(53248+30) 
65 


The number 65 is a combination of bits 0 and 6 set: 64+1=65. After 
you have read register 30, you must set it back to 0, or you will not be able 
to detect future collisions since the register is not automatically reset. 


POKE 53248+30,0 
2.3.8. Collision: Sprite-background 


Sprites can also come into contact with the background characters. It is 
possible to check to see if our helicopter comes into contact with the cursor 
or not. This test 1s independent of whether the sprite has precedence over 
the background or not. If a sprite does contact some part of the background, 
the corresponding bit in register 31 is set. Here the same applies as for 
register 30: You must clear the register after reading it. The register can only 
tell that the given sprite has come into contact with a background character, 
it cannot tell you which character, though that usually doesn't matter. This 
can be determined by the position of the sprite. 


2.3.9 Multi-color sprites 


Certainly the "icing on the cake" of sprite programming is the ability to 
define sprites in multi-color. Multi-color simply means four-color. One 
color is the background color; two additional colors are the same for all 
eight sprites. If you want to display several sprites in multi-color, you must 
consider carefully what colors you will choose. You must then define these 
in the two fixed sprite color registers. The multi-color mode does have a 
price: the resolution is cut in half. This usually does not present a problem 
since the resolution is usually more than enough. This gives you a 
resolution of 12x21 points. The size of the sprites remains the same since 
the points themselves become twice as large--two bits define one color. 
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00 
01 
10 
11 


The various bit combinations have the following meanings: 


The point has the background color (no point is visible) 
The color is taken from register 37 

The color is taken from the given sprite color register 
The color is taken from register 38 


We must tell the VIC chip which sprites are multi-color. This is 


naturally done bit by bit, in register 22. To display our helicopter as 
multi-color: 


POKE 53248+22,2 


And look: it appears in shimmering color. The helicopter looks so ugly 
because we defined it as a single color sprite. The various bit combinations 
of a monochrome sprite naturally have a different character than they do 
with a multi-color sprite. We'll now list the entire program responsible for 
bringing our helicopter to life. This program will help show you how 
sprites are programmed, whether in BASIC or machine language. 


REM SPRITE DEMONSTRATION PROGRAM 

V = 53248: REM START ADDRESS OF THE VIC CHIP 
POKE V+32, 15; POKE V+33,14:REM BACKGROUND COLOR 
PRINT"<CTRL-7>": REM <CRTL> KEY AND 7 


POKE V+21, 3 : REM ENABLE SPRITE O AND 1 

POKE V+28, 3: REM SPRITE OQ AND 1 IN MULTICOLOR 
POKE V+39, 6 : REM COLOR FOR SPRITE O = BLUE 
POKE V+40, 2: REM COLOR FOR SPRITE 1 = RED 


POKE V+37, 14: REM MULTI-COLOR 1 = LIGHT BLUE 


100 POKE V+39, QO: REM MULTI-COLOR 2 = WHITE 
110 POKE 2040, 13: REM SPRITE O AT 832 TO 895 
120 POKE 2041, 13 : REM SPRITE 1 THE SAME 

130 FOR I = O TO 62: REM NUMBER OF DATA ITEMS 


140 : READ X : REM READ THE VALUES 
150 : POKE I+832, X : REM STORE THE VALUES 
160 NEXT I 


170 POKE V+0,25:POKE V+1, 50:REM POSITION SPRITE 0 
180 POKE V+2, 60:POKEV+3,50 :REM POSITION SPRITE 1 
190 FOR D = I TO 2000 : NEXT:REM DELAY LOOP 

200 FOR I = 0 TO 200 : REM MOVE 

210: POKE V, I=24 : REM X-COORD. SPRITE 0 

220: POKEV=2, 200-I :REM Y-COORD. SPRITE 1 
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230: 
240: 
250 NEXT 
260 GOTO 200: 


POKE V=1, 
POKE V+3, 


40+I: REM Y=COORD. SPRITE 0 
200-I:REM X-COORD. SPRITE 1 


REM MOVE CONTINUALLY 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


000,000,000 
000,000, 000 
000,000,000 
000,000,000 
000,000,000 
000,000,000 
000,000, 000 
003,255,255 
000,002,000 
192,170,128 
194,150,080 
234,150,080 
194,170,168 
192,170,168 
000,032,128 
000,170,160 
000,000, 000 
000,000,000 
000,000,000 
000,000,000 
000,000, 000 


It is certainly more complicated to prepare multi-color sprites than 
single-color sprites, in which a point on paper corresponds directly to a 
point on the screen. Fortunately there are sprite editors which make the 
work a good deal easier. Such an editor is built in to BASIC 7.0 
(SPRDEF). But as we said before, it is very important for the machine 
language programmer to know how sprites are programmed without BASIC 
commands. 


The sprites that you define and use with the sprite editor built into 
BASIC 7.0 are stored in RAM at $0E00-$1000. 


Sprites in any of the possible modes can be covered by the background, 
whether it be in text, graphic, or multi-color graphic mode. 
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2.3.10 Interrupts through the VIC chip 


The VIC chip is capable of generating interrupts. Interrupts temporaily 
halt the machine language program currently being executed by the 
microprocessor because a certain event occurred. There are four different 
sources of interrupt on the VIC: 


* The lightpen 

* The raster-line interrupt 

* A sprite/sprite collision 

* A sprite/background collision 


Because of the VIC chip's ability to generate raster-line interrupts, it 1 
possible for BASIC 7.0 to mix text and graphics (by means of the 
GRAPHIC command). To program an interrupt, you set the appropriate bits 
in the IMR register specifying which interrupt source(s) you want. In 
addition, you must change the interrupt vector to your own interrupt routine 
so that you can react appropriately to the interrupt. 


If the interrupt comes from CIA1, you must branch to the kernal 
routine. The CIA1 generates interrupts every sixtieth of a second in order to 
read the keyboard. Otherwise you can branch to you own routine. You can 
determine if the CIA1 caused the interrupt by reading register 13, ICR 
(Interrupt Control Register). 


If the interrupt came from the VIC chip, bit 7 of the IRR (Interrupt 
Request Register) is set in addition to the bit of the generator. You need 
only test for the generator bit if multiple interrupts are enabled on the VIC. 


If you use only the raster-line interrupt, you must check bit 7. You can 
specify which raster line is to cause the interrupt by setting registers 18 and 
17 (overflow). When this line is encountered while the screen is being 
constructed, an interrupt 1s generated. By the time the routine reacts, the 
beam creating the picture is already a few lines farther down. You must be 
sure to take this time delay into consideration. 


The possibilities which interrupt programming offers, as well as the 


flood of programming tricks to be mentioned and explained would go far 
beyond the scope of this book. 
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2.3.10.1 More than 8 sprites on the screen 


We will use the following program as a small example of what can be 
done with the raster-line interrupt. The raster-line interrupt makes it possible 
to display more than the usual 8 sprites on the screen at one time. The 
control program need only exchange the data for the sprites with an area 
reserved for this purpose or redefine the pointers at a specific raster-line. 


If you display more than 8 sprites using the raster-line interrupt, the 
freedom of movement in the vertical direction is somewhat limited. If you 
use 16 sprites, for example, the first eight sprites must move above the 
middle line (0--99) while the second set of eight must be satisfied with the 
lower half (100-199). The sprites can move freely in the horizontal 
direction. For many games the vertical restriction is not a problem so you 
can make extensive use of the raster-line interrupt. 


Our example program displays 16 sprites in various colors and moves 
them across the screen. Eight sprites are to be displayed in the upper half of 
the screen. If the video controller has displayed the upper half, we generate 
an interrupt. In the interrupt routine we set the parameters for the sprites 
which are to be displayed in the lower half of the screen. At the same time, 
we must prepare the next raster interrupt for the end of the screen so that we 
can again switch back to the upper 8 sprites. 


1 REM 16 SPRITES 

5 PRINT CHRS (147) 

100 FOR I = O TO 7: POKE 2040+I, 15: NEXT 

110 V = 53248 

120 POKE V+21, 255 : POKE V+ 33, 0 

130 FOR I = 0 TO 7: POKE V+2*I, (I+1) *30: 
POKE V+2*I+1,70;NEXT 


140 FOR I = 0 TO 7: POKE V+39+I,I+1: NEXT 

200 FOR I = 828 TO 907: READ X: POKE I, X : NEXT 
300 FOR I = 960 TO 960 + 62 :READ X:POKE I, X: NEXT 
350 SYS 828 


430 D=D +1; FOR I = 0 TO 7: POKE V+2*I, (I+1)* D: 
POKE V+2*I=1,1*5+60: NEXT 

440 IF D> 28 THEN D=1 

450 GOTO 430 

900 DATA 120, 169,100,141,18,208,173,17 

910 DATA 208, 41,127,141,17,208,169,129 
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920 
930 
940 
950 
960 
970 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
980 DATA 
990 DATA 
1000 DATA 
1001 DATA 
1002 DATA 


141, 26,208,169, 91,160,3,141 
20,3,140,21,3, 88, 96,173 
25,208,141,25,208, 41,1,208 
3,76,49,234,173,18,208,201 
200,176,22,160,200,169,170,140 
18,208,162,14,157,1,208,202 
202,16, 249,104,168,104,170,104 
64,160, 100,169, 90,76,115, 3 
255,255,255,182,210, 73,164,155 
109,255,255,255,164,155,109,182 
211,109,182,218,109,182,219,77 


1003DATA 182,219,105,182,219,109,255,255 
1004DATA 255,0,0,0,0,0,0,0 

1O005DATA 0,0,0,0 
LOO6DATA 0,0,0,0 
1007 DATA 0,0,0,0 


Examine line 430 closely. In addition to the sprite coordinates, you can 
change all of the other sprite parameters as well, such as the color or size. 
You can also change the sprite pointers so that other sprite patterns can be 
displayed, even multicolor. 


You can do more than display 16 sprites. If you change the display 
mode in the raster interrupt routine, you can display a split screen--The top 
half could display hi-res graphics while the lower half displays text. 
Superimposed effects can also be achieved in this manner. 


Now that we have described the programming and use of sprites in 
detail, we want to look at the other operating modes of the VIC chip. 
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2.4 Normal Character Display 


This mode is the most "normal" of all the display modes of the VIC: the 
text mode. It is automatically enabled when the machine is turned on. One 
thousand characters from the video RAM are displayed as a page of text on 
the screen. Each character has a code which is used as a pointer to the 
character generator. This pointer is used to display the bit pattern stored in 
the character generator at the current screen position. In this manner the 
computer can display 256 different characters on the screen. Two different 
characters sets are stored in the Commodore 128. You can select between 
upper/lower case and upper/graphics mode with SHIFT/Commodore. These 
are two of the character sets. You can also select between the 40 column and 
80 column screens, giving another character set which is a combination of 
the upper/lower case and upper/graphics case sets. 


There is a separate location in the color RAM for each character on the 
screen. This location determines the color of the character. When the 
character is displayed, the color of each set bit is fetched from the lower 
nibble of the color RAM. 16 colors can be defined here. If a bit is not set, 
the color is fetched from the background color register 0; the point is 
therefore transparent. 


2.4.1 Moving the video RAM 


A useful feature of the VIC chip is the ability to move the location of the 
video RAM and/or the character generator. In this manner you can have two 
or more text screens. For example, while you display one screen, you can 
build another behind the scenes. The same applies to the graphic mode. 
Color RAM cannot be moved, however. 


As already mentioned, the VIC chip can address only 16K. Normally 
the first 16K of bank O is addressed--the video RAM is found at address 
$0400-$07FF. Register 24 of the VIC chip supplies the address of the video 
RAM in 1K increments. Bits 4-7 of this register represent the address bits 
10-13 of the video RAM. The address $0400 looks like this in binary: 


0000 1000 0000 0000 = $0400 
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The left-most bit is address bit 15, the right-most is address bit 0. 
Address bits 10-13 read: 0010. This bit combination is also found in 
register 24, bits 4-7. To move the video RAM by 1K, the new address 
would be $0800. 


0001 0000 0000 0000 = $0800 


Address bits 10-13 now read 0100. To write this address to register 24, 
you must first mask out (=erase) bits 4-7 and then the bit combination can 
be defined with a logical OR operation. 


P=PEEK(53248+24) : REM OLD CONTENTS 
POKE 53248+24,(P AND 240) OR 64 


This OR operation is necessary to make sure you do not disturb the 
other bits in the register because they define the address of the character 
generator. 


The limit of movement is reached when you try to move the video RAM 
by more than 16K. Registers 24 has bits 10-13 of the address available, 
enough for movements within a 16K range. Since address bits 14 and 15 
cannot be defined in the VIC chip, these bits must be stored outside it. 
These two bits are found in register 0 of CIA2 (address $DD00), bits 0 and 
1. Note that these two bits are active low, meaning that their values are 
inverted. In order to address the lowest 16K (address bits 14 and 15 are 0), 
bits O and 1 of register 0 in CIA2 must be set. 


IMPORTANT! : 

If you change bits 0 and 1 of CIA2, not only does the video RAM move by 
16K, the base of the character generator moves too. Remember this when 
doing graphics programing. _ 


The following values stand for given memory ranges: 


Bits Range 

00 $C000-$FFFF 

01 $8000-$BFFF 

10 $4000-$7FFF 

11 $0000-$3FFF (power-up condition) 


POKE 56576, A: REM SELECT THE 16K PAGE 


WHE © 
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2.4.2 Moving the character generator 


The CIA2 bits define the 16K page for both the video RAM and the 
character generator. The character generator can also be moved, but in 2K 
increments instead of 1K increments. Bits 1-3 of register 24 in the VIC 
represent address bits 11-13 of the character generator. 


Normally this pointer points to the character ROM, which is responsible 
for the appearance of the characters on the screen. In the graphics mode, the 
character generator must be moved, however, in order to define the base of 
the graphic page (the video RAM becomes the color RAM). The character 
ROM is found physically outside the readable range of the VIC chip, 
because the address $D000 is not addressable when a lower page is 
selected. This character ROM has a special status thanks to the address 
manager, however: If the relative addresses $1000-$1FFF or $9000-$9FFEF 
are addressed, the character ROM is automatically accessed 
($D000-$DFFF). If you disturb this by programing in the graphics mode, 
for example, you must use either page 1 or 3 or move the area for the 
character generator. 


If, for example, you want to program and use a couple of self-defined 
characters, first copy the original character set out of the character ROM into 
RAM. Then you can redefine individual characters or completely redefine 
the entire set. You need only tell the VIC where it can find the new character 
set. 


2.4.3 The color RAM 


The color RAM is probably the only thing which you cannot redefine 
on the VIC. This is not a hindrance for it is important to always know 
where the color RAM will be. The color RAM serves as the color palette for 
the text display; the VIC gets the color for each character from this RAM. 
When you work in the hi-res mode, the color RAM is unused. You can use 
this RAM for other purposes. In the multi-color mode, the color RAM 
comes back into play--it yields color values for the entire screen area. 


The color RAM begins at address $D800 and ends at address 
$D800+999. 
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We will clarify the theory behind video programming by using 
examples. 


Whenever you have the opportunity to define a color, whether it be in 
the color RAM for a character on your text screen or the color for a sprite, 
the following codes apply to the given colors: 


Key Color Number 
Ctrl-1 Black 0 
Ctrl-2 White 1 
Ctrl-3 Red 2 
Ctrl-4 Cyan 3 
Ctrl-5 Purple 4 
Ctrl-6 Green 5 
Ctrl-7 Blue 6 
Ctrl-8 Yellow 7 
C=-1 Orange 8 
C=-2 Brown 9 
C=-3 Light red 10 
C=-4 Grey 1 11 
C=-5 Grey 2 12 
C=-6 Light green 13 
C=-7 Light blue 14 
C=-8 Grey 3 15 


For example, to make the border and background black, the following 
instructions are necessary: 


POKE 53280,0 
POKE 53281,0 


To fill the screen (which is now black) with white A's we must fill the 
video-RAM, at address $0400 to address $0400+999, with the color code 
1. In addition, we must put 1 (for white) in all locations of the color RAM at 
address $D800 to $D800+999 : 


10 PRINT CHRS$(147); : REM CLEAR THE SCREEN 


20 FOR I=0 TO 999 >: REM 1000 CHARACTERS 
30 POKE 55296+I,1 : REM WHITE 
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40 POKE 1+1024,1 > REM AN A 
50 NEXT I 
60 GET AS: IF AS="" THEN 60 


Line 60 prevents the screen from being scrolled. The program is 
stopped when a key is pressed. If this is too boring for you, try the 
following: 


30 POKE 55296+I,RND(0)*16 : REM COLOR 
40 POKE 1024+I,RND(0)*255 : REM CHARACTER 


You should try it out to see what happens. But since programming the 
text screen is as simple as it is boring, we will now turn to graphics 
programing: 


2.5.1 The hi-res mode 


Since we wish to program at the lowest programming level, machine 
language, we don't have commands for drawing lines or circles--not even a 
command to set a point. Those who want to program in the 64 mode should 
get rid of the idea of using BASIC 7.0 commands. If you program in 
machine language, you can naturally access the routines stored in the ROM. 
But it usually better if you you write such routines yourself, since you can 
adapt these routines to meet your individual needs. In addition, the 
operating system routines make time-consuming checks that we can 
dispense with entirely in machine language. 


Here is a program which plots a sine curve on the screen in the hi-res 
mode, without using a single command from BASIC 7.0; everything is 
done "by hand". This program can also be translated directly into machine 
language, in which only the sine calculation will present a problem. 


S REM 128 MODE ONLY: GRAPHIC 1,1 
10 REM SINE-PLOT-PROGRAM FOR C-64 MODE AND 128 MODE 


20 V=53248: REM START ADDRESS OF VIC 
30 AD=8192: REM START ADDRESS OF HI-RES BIT 
MAP 


32 REM 128 MODE ONLY: GOTO 120 

40 POKE V+17,59: REM TURN ON GRAPHICS 

90 POKE V+24,24: REM DEFINITION OF CHAR-GENERATORS 
60 FOR I=1024 TO 2023: REM SET THE HIRES COLOR RAM 
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70 POKE 1,16: REM COLOR 
80 NEXT I | 
90 FOR I=8192 TO 16383: REM CLEAR THE HIRES BIT MAT 
100 : POKE I,0 
110 NEXT I 
120 Y=100: REM POSITION X AXIS 
130 FOR X=0 TO 319: REM MARK THE X AXIS 
140 : GOSUB 1000:REM POINT SET - 
150 NEXT X 
160 X=160: REM POSITION Y AXIS 
170 FOR Y=0 TO 199: REM MARK Y AXIS 
180 : GOSUB 1000 
190 NEXT Y 
200 X=0 
210 FOR I=-3.141592654 TO 3.141592654 
STEP 0.0196349541 
220 : Y= 100+99*SIN(I): REM FUNCTION 
230 : GOSUB 1000 


240 : X=X+1: REM NEXT FUNCTION 
250 NEXT I 
260 GET AS:IF AS="" THEN 260 


265 REM C-128 MODE ONLY : GRAPHIC 0 

1000 OY= 320* INT(Y/8) + (Y AND 7): REM Y-OFFSET 
1010 OX= 8* INT(X/8) : REM X-OFFSET 
1020 MA 2° (7-(X AND 7) ) 

1020 AV AD + OX + OY 

1040 POKE AV, PEEK(AV) OR MA: REM SET POINT ON OR 
1050 RETURN 


When you start the program, you will not be very impressed by the 
execution speed. This is because of the time-consuming calculations and the 
REM commands. A very time-intensive calculation is the (2“a) calculation 
which can be replaced by a table in both BASIC and machine language. 
Naturally this all can be done in BASIC 7.0 more effectively, but you 
would never know a point is set internally. The program contains the 
BASIC 7.0 commands in REM statements so you can see the differences. 


We'll take a closer look at the program to find out how we produced the 
graphics on the screen. 


In order to make the calculations in the program reference the VIC chip, 


we have first defined the starting address of the chip. This: also makes it 
easier to see which register is being accessed. First we change register 17 
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by writing the value 59 into it. Bit 5 is set to tell the VIC that we are in the 
graphics mode. The start addresses of the video RAM and character 
generator are placed in register 24. We write a 24 in this register. 


24 = $18 = %0001 1000 


Bits 4-7 of the register determine the address bits 10-13 of the video 
RAM--we get the start address $0400, the normal value of the screen. 
Furthermore, bits 1-3 determine address bits 11-13 of the character base: 


70010 0000 0000 0000 = $2000 = 8192 


We have defined the address of the video RAM as well as the address 
of the bit map with one POKE command. Based on our own experience, 
most of the errors occur in the conversion of these two addresses. For this 
reason you should do everything in detail, as in our example, by writing the 
two addresses down and then putting together the bits that are required. 


When you start the program, you return to BASIC again by pressing a 
key. But you can see that the graphics mode is not turned off, and you can 
see that the text is quite colorful. This is because the video RAM is filled 
with the values that refer to these colors. You should save the contents of 
registers 17 and 24 before you overwrite them so that you can reconstruct 
them later. Insert the following lines to return to the text mode when you 
press a key: 


35 Al=PEEK(V+17) : A2=PEEK(V+24) 
270 POKE V+17, Al: POKE V+24, A2: END 


This program makes use of the hi-res mode in which we have a 
resolution of 320x200 points. This gives exactly 64,000 points available to 
us. Since 8 points=8 bits that can be combined into one byte, we need a 
memory area of exactly 8000 bytes in order to display the graphics. Three 
hundred and twenty (320) points can be displayed in one line, or 40 bytes 
(320/8); we recognize this from the text mode. Further, we have 25 lines of 
8 points. Notice the parallel to the text mode. 


One character in the text mode consists of 8x8=64 points which can be 
independently set or cleared. The color for the set points comes from the 
color RAM while the color for the unset points is taken from the 
background color register 0. The graphic mode is similar. Here too 8x8 
points are taken together as a unit. Two colors can be displayed in this little 
box of 64 points. If a memory location were provided for the color of each 
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point, we would need 64K of color memory! By combining the points into ~ 
8x8 groups, we only need 1000 bytes for the color definition. We will take 
a closer look at such an 8x8 unit. 


Such a unit is also called a character matrix. All of our letters and 
special characters that we can see on the screen in the text mode are defined 
in this matrix. In the hi-res mode we can define all of the matrices ourselves 
and no longer have just a "pointer table" to pre-defined matrices (character 
generator). This may sound complicated, but it really isn't. 


You see that it must be possible to mix text and graphics or to "draw" 
text in the graphic area without too much programming effort. Writing 
directly to the graphic storage naturally doesn't work. But exactly how is 
the graphic brought to the screen? What memory location in our graphic 
storage defines which 8 points in our graphic? The following figure should 
clarify these questions: | | 


SL9O2ZS «se ee a eS we. ee -@ 8200: 
SlOSe 2: 6 &. w w «% «€-4 8201: 
SOAs =. «we a. cet al, oh 8202: 
ST95S2 4. %. % &@ wie & ¥ 8203: 
SLlOGs « « + a & &  & 8204: 
SLOT 6 wee we BR we x 8205: 
SLOSS & i x. & ae ee ch. & 8206: 
SLOO8. « a: 4 Bw SS 8207: 
S124%. « 6 ws 4 Bx 8257: 
etc. 


This figure shows the shift between columns and lines as far as the 
addressing goes. Our graphic storage starts at address 8192 and defines the 
first 8 points of our graphic with the first byte. If we want to address the 
ninth point in our first line, we must use the address 8200 which is where 
this point resides. The scheme of representation is similar to the text mode; 
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it is displayed character by character and line by line. But how do we 
address a given point? We must first calculate the address in which it is 
located. To establish such an algorithm we first simplify the conditions. 
First we will just try addressing a point in the first line: | 


AD = 8192 + INT(X/8)*8 
For the sake of simplicity, we will call the term INT(X/8)*8, OX (or 
offset of the X-position). This is all we need to do for the X-coordinate. We 


now have the address of the point, but we don't know what bit to access. 
We don't want to disturb any of the others: 


BIT = X - INT(X/8)*8 


We need to find the remainder of X/8. This is done by masking out the 
lowest three bits with a logical AND operation. 


BIT = X AND 7 | 

Try it once; it works and is much faster than the division, especially in 
machine language. Now, however, we must consider that the left-most bit 
is not labeled 0, but 7. We must reverse this relationship: 

BIT = 7 - (X AND 7) 

Now the formula is correct. To set such a point in assembly language or 
BASIC we have to set the appropriate memory location with a logical OR 
operation. To do this, we have to calculate the power of two: 

| 24(7-(X AND 7)) 

Now we can set any point in the first line: 

POKE 8192+OX,PEEK(8192+OX) OR 24(7-(X AND 7)) 

To address the first eight lines, we need only add the Y-coordinate. If 
we want to access the ninth line, we have to skip 320 bytes. The following 
addition takes the Y-position into account: 


OY = INT(Y/8)*320 + (Y AND 7) 
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In order to address a point, add the offset of the X and Y positions to 
the base address of the graphics memory. The following formula results for 
the address calculation: | | 


AD = OX + OY + 8192 


Our terms for calculating the X and Y offsets are integrated into the 
formula. We have now derived all of the calculations necessary to set a 
point. The following sequence of commands in BASIC give us the correct 
results: 7 


OY=320*INT(Y/8) + (Y AND 7) 
OX=8* INT (X/8) 

BI=2*(X AND 7) 

AD=8192 + OX + OY 

POKE AV, PEEK(AV) OR BI 


If we want to erase a point, the address calculation does not change, but 
we must modify the POKE command. We must also mask out the 
calculated bit: 


~POKE AV, PEEK(AV) AND NOT BI 


Now we know how to set and clear points. But we still don't know 
how the colors to be displayed for set and cleared bits can be set. In our 
example the bit map is found at addresses 8192-16192. You recall than we 
have moved the normal RAM to color RAM. This means that the 
information to determine the color of the points on the hi-res screen will 
come from this memory, memory which otherwise contains the contents of 
the screen. This memory area is located at address 1024 thru 2023. 


Since we can define two colors with one bit, we must also place these 
two colors in video RAM. Recall the construction of the graphic screen. We 
always had "matrices" of 8 bytes--eight sequential bytes in our bit map. 
Such a matrix has the same size as a character on the screen. The colors for 
our first matrix, at address 8129-8199, is defined in the first byte of the 
video RAM--address 1024. These two colors apply to all 64 points in this 
matrix. Correspondingly, the colors for the second matrix, from address 
8200 to 8207, are stored in address 1025. The question remains, how are 
these colors defined? 


Let's take another look at our example program that filled the range 
from 1024 to 2023 with the value 16. What does 16 look like in binary? 
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16 = $10 = %00010000 


If we separate the upper and lower nibbles (unit of four bits) from each 
other, we get two values between 0 and 15--sufficient to define the available 
colors. In this example we get the values 1 and 0. If we look at the color 
table, we see that we have defined the colors white and black. In the hi-res 
mode you must define the colors so that sufficient contrast is retained. Often 
two adjacent points must be set in order to be able to see the color at all. 
This varies from monitor to monitor, however. The contrast between white 
and black is the best possible (perhaps black on white would be even 
better), while red and blue result in utter chaos. The color defined in the 
upper nibble of the color RAM is displayed for a set bit. In our example this 
means that the background is black (0) and the graphic is shown in white 
(1). The following rule applies for setting the color RAM: 


POKE <color RAM>,<foreground>*16 + <background> 


Naturally, you can define more than two colors across the entire screen: 
there are 256 possible combinations within a matrix and black and white is 
only one of them. Programming in hi-res mode is best learned by trial and 
error. 


2.5.2 The multi-color mode 


In addition to the hi-res mode, there is another option for displaying 
graphics on the screen: the multi-color mode. We are familiar with the term 
multi-color from sprites. In multi-color we have four colors per matrix, 
though as with sprites, the resolution suffers. In multi-color mode it is 
"only" 160x200--exactly half. A byte now defines four points instead of 
eight. To turn on the multi-color mode we must set bit 5 of register 17 (just 
as for the hi-res mode). In addition, the fourth bit in register 22 must be set. 
This is done by the instruction: 


POKE 53248+22,PEEK(53248+22) OR 16 
The addresses for the bit map and color RAM are programmed in the 
same manner as for the hi-res mode. The following contents should be 
found in address 8192 (the first byte of the bit map): 


PEEK(8192)= %00011011 = $1B = 27 
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This byte defines the first four points of the first line. Since two bits are 
taken together, we get the bit pairs 00, 01, 10, and 11--all four 
combinations are possible. 


Bits Color information comes from 

00 Background color register 0 | 
01 Upper four bits of the video RAM 
10 Lower four bits of video RAM 

11 Color RAM 


Here only the bit combination 00 is the same for the entire screen. Bit 
combinations 01 and 10 work the same way as described for the hi-res 
mode. The color RAM begins at address $D800 and makes one color 
available. Programming in multi-color mode is very attractive since it offers 
a wider selection of colors. Naturally our address calculation must change 
since only four points are defined by each byte. The formula for the X 
offset changes: 


OX=8*INT(X/4) 
MA=2(6-2*(X AND 3)) 
POKE AV, PEEK(AV) OR MA*c<bit pattern> 


You can see that the formula for the bit determination has also changed. 
You must remember that a bit pair must be logically ORed with the existing 
contents and the power of two may only go in steps of two. The <bit 
pattern> is shifted left by the multiplication. Since the multi-color mode is 
most often used in games, you should be familiar with the programming 
tricks used in this mode. 


2.5.3 The multi-color mode (text) 


(register 22 bit 4=1) 

Another relatively unused multi-color mode is the multi-color text 
mode. In this mode characters on the screen can have more than one color. 
For example, you can define a zero made up of a white circle with a blue 
slash through it. If the multi-color mode is enabled, the VIC checks to see if 
bit 3 of the color register is set. This means that the color of the character is 
greater than 7 (8-15). If this is the case, the character is displayed in 
multi-color mode. The character no longer has an 8x8 matrix, but just a 4x8 
matrix with the following bit combinations: 
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Bits Color register Defined at address 

00 Background register 0 $D021 (53281) 

01 Background register 1 $D022 (53282) 

10 Background register 2 $D023 (53283) 

11 Color register Color RAM $D800-$D800+ 1000 


If the bit combination is 11, the color is taken from the lower three bits 
of the color register. If bit three is not set in the color register (color 0-7), a 
normal single-color 8x8 matrix is displayed. This mode is only useful if 
you define your own character set. This mode is used in some games 
because it is easier to program than the hi-res mode. Switch to this mode 
once: Since these characters are not intended for multi-color mode, you get a 
colored spectacle: 


POKE 53248+22,PEEK(53248+22) OR 16 
The following command is used to turn this mode off again: 


POKE 53248+22,PEEK(53248+22) AND 239 
2.5.4 Extended-color mode 


(register 17 bit 6=1) 

Even all this wasn't enough for the designers of the VIC. They created 
yet another mode: the extended-color mode. This mode is very similar to the 
normal text mode. A character can consist of only two colors, but the 
background color is not necessarily the same. One can choose between three 
background colors (for the O-bits), while the 1-bits get their color from the 
color register. The background color is determined by the two 
most-significant bits in the video RAM: 


Bits Background color register # 
00 

01 1 

10 2 

11 3 


Since two bits have been taken away from the video RAM, only six bits 
remain to define the character to be displayed. This has the result that only 
64 characters can be represented--these are the lowest 64 characters. There 
are two sides to everything... 
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2.6 Smooth Scrolling 


You may have seen this word in some computer literature and 
wondered what it means. 


Smooth scrolling is beautiful as it sounds: by means of this capability 
you can move the screen horizontal or vertically by one pixel. Scrolling is 
the shifting of the screen. This can be used in games to create moving 
backgrounds so that one gets smooth scrolling. This movement can take 
place in any one of four directions (up, down, left, or right). Moving in one 
direction causes one row of pixels to be covered up while a new row 
appears at the other end. The screen can be placed in eight different 
positions with this scrolling, sufficient to allow a character to appear on the 
screen Slowly. To make use of smooth scrolling, the screen must be made 
smaller. The VIC has two bits available to do this, in which one can select 
the display mode of 38/40 characters per line and 24/25 lines. The border 
then increases correspondingly. 


If we want to move the screen vertically, we must give up a line, while 
if we want to move it horizontally, we lose two characters per line. To 
switch to the 38-column mode, bit 3 of register 22 must be cleared: 


POKE 53248+22,PEEK(53248+22) AND 247 


After you have entered this line, the screen shrinks in size. To switch 
back to the "normal" mode, we must set bit 3 again: 


POKE 53248+22,PEEK (53248+22) OR 8 


The same thing applies to the 24-line mode. Here bit 3 of register 17 
must be cleared if we want 24 lines: 


POKE 53248+17,PEEK(53248+17) AND 247 
POKE 53248+17,PEEK(53248+17) OR 8 


In register 22, bits 0-2 indicate what offset the left edge of the screen 
has. By varying these three bits one can achieve soft scrolling in the 
horizontal direction. If you want to scroll vertically, the offset in register 17 
must be changed accordingly. 


But we don't want to keep you in suspense any longer. Here is a demo 
program to clarify what effects can be achieved with smooth scrolling: 
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10 PRINT CHR$(147) : REM CLR SCREEN 
20 POKE 52348+17, PEEK (53248+17) AND 247 
30 FOR I=1 TO 24 
40 : PRINT " HELLO !!": REM 12 SPACES 
50 NEXT I: PRINT " HELLO !!"; 
: REM NO SCROLLING AND 12 SPACES 
60 POKE 53248+17,PEEK(53248+17) AND 248 OR 7 
: REM SET FIRST POSITION 
70 FOR I=6 TO 0 STEP-1 
80 POKE 53248+17,PEEK(53248+17) AND 248 OR I 
90 FOR Il=1 TO 60: NEXT I1: REM DELAY LOOP 
100 NEXT: REM END OF LOOP 
110 GOTO 60: REM AGAIN 


Naturally this smooth scrolling works in the graphic mode too. It is in 
the graphic mode that the most refined effects can be created. For example, 
you can have a space ship moving soundlessly through a never-ending 
universe. After all eight rows of points have been scrolled, you must fill a 
graphic column or row with new values. 


You can see that the VIC-II chip offers a great deal. Not everything is 


covered by the BASIC 7.0 commands. This chapter covers all of the 
features of the VIC-II so that you won't miss out on anything. 
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Chapter 3: Input and Output Control 


3.1 General Information about the CIA 6526 


CIA stands for Central Intelligence Agency, though that really doesn't 
concern us here. For us, CIA stands for Complex Interface Adapter, and 
that should be more interesting. The Commodore 128 uses the CLA 6526. A 


brief run-down of its main features: 


* 16 individually programmable input/output lines 

* 8 or 16-bit handshake for input and output 

* 2 independent, cascadable 16-bit interval timers 

* 24-hour (AM/PM) clock with programmable alarm time 
* 8-bit shift register for the serial /O | 


3.1.1 Pin Configuration 


1 
2-9 
10-17 


18 
19 
20 
21 
22 


23 


24 
25 


GND 

I/O PA (port A); 8-bit directional 

I/O PB (port B); 8-bit directional 

Bits 6&7 can be programmed to signal the time-out of 
both timers 

-PC (port control); output only; 

signals the availability of data on port B or both ports 
TOD (Time Of Day); input only, 50/60 Hz; 

triggers the real-time clock 

+5V; operating voltage 

-IRQ (interrupt request); output only; 

O if a set bit in the ICR matches the occurrence of the 
given event 

R/W (read/write); input only; 

O=input from data bus 

1=output to data bus 

-CS (chip select); input only; 

O=data bus valid, l=data bus high-impedance 
(tri-state) 

-FLAG; input only; meaning same as -PC 

02 (system clock 2); input only 

all data bus actions occur only on 02=1 
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26-33 DB7-DBO (data bus); bidirectional; 


34 
35-38 


39 
40 


interface to processor 

-RES (reset); input only; 

O=reset CIA 

RS3-RSO (register select); input only; 
serves to select a 16-bit register; 
valid only if -CS=0 | 

SP (serial port); bidirectional; 
input/output of the shift register 

CNT (count); bidirectional; 
input/output of the shift register clock or trigger input 
for the interval counter. 


3.2 Register Description of the CIA 


REG 0 


REG 1 


REG 2 


REG 3 


PRA (port register A) 

Access: read/write 

Bits 0-7: This register corresponds to the condition of pins 
PAO-PA7. 


PRB (port register B) 

Access: read/write 

Bits 0-7: This register corresponds to the condition of 
PBO-PB7. 


DDRA (data direction register A) 

Access: read/write 

Bits 0-7: These bits determine the direction of data on the 
corresponding data bits of port A. 

O=input, 1=output 


DDRB (data direction register B) 

Access: read/write 

Bits 0-7: These bits determine the direction of data on the 
corresponding data bits of port B. 

O=input, 1=output 
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REG 4 


REG 5 


REG 6 


REG 7 


REG 8 


REG 9 


REG 10 


TA LO (Timer A, low byte) 

Access: read 

Bits 0-7: This register returns the current condition of the 
low-order byte of time A. 

ACCESs: write 

Bits 0-7: This register is loaded with the low-order byte of 
the value from which timer is supposed to count down to 
zero. 


TA HI (Timer A, high byte) 

Access: Read 

Bits 0-7: This register returns the current condition of the 
high-order byte of time A. 

Access: Write 

Bits 0-7: This register is loaded with the high-order byte of 
the value which timer is supposed to count down to zero. 


TB LO (Timer B, low byte) 
Same as register 4. 


TB HI (Timer B, high byte) 
Same as register 5. 


TOD 10ths (Clock tenths of a second) 
Access: Read 

Bits 0-3: Tenths of a second in BCD format 
Bits 4-7: Always 0 

Access: Write and CRB bit 7=0 

Bits 0-3: Tenths of a second in BCD format 
Bits 4-7: Must be 0! 


TOD SEC (Clock seconds) 

Access: Read 

Bits 0-3: Seconds (one's digit) in BCD format 
Bits 4-6: Tens of seconds in BCD 

Bit 7: always zero 


TOD MIN (Clock minutes) 

Access: Read 

Bits 0-3: Minutes (one's digit) in BCD format 
Bits 4-6: Tens of minutes in BCD 

Bit 7: always zero 

Write access as per REG 8. 
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REG 11 


REG 12 


REG 13 


REG 14 


TOD HR (Clock hours) 

Access: Read 

Bits 0-3: Hours (one's digit) in BCD format 
Bits 4: Tens of hours 

Bits 5-6: Always zero 

Bit 7: 0=AM, 1=PM 

Write access as per REG 8 


SDR (Serial data register) 

Access: Read/write 7 

Bits 0-7: The data are shifted out to or shifted in from pin SP 
from/to this register. 


ICR (interrupt control register) 

Access: Read (INT DATA) 

Bit 0: 1=Timer A timeout 

Bit 1: 1=Timer B timeout 

Bit 2: 1=Alarm time equals clock time 

Bit 3: 1=SDR full/empty (depending on operating mode) 

Bit 4: 1=Signal on FLAG pin 

Bits 5-6: Always zero 

Bit 7: At least one bit in INT MASK matches a bit in INT 

DATA 

Note: Reading this register erases all of the bits! 

Access: Write (INT MASK) 

Meaning of bits as above, except bit7: 

Bit 7: 1=Every }-bit sets the corresponding mask bit. The 
other remain unchanged. 
O=Every 1-bit clears the corresponding mask bit. The 
other remain unchanged. 


CRA (Control Register A) 

Access: Read/write 

BitO: 1=TimerA start,O=stop 

Bit 1: 1=Signal timer A timeout on pin B6 

Bit 2: 1=Every timeout on timer A inverts PB6 
0=Every timeout on PB6 creates a high signal on PB6 
for the length of the system clock 

Bit 3: 1=Timer A counts down to zero and stops 
O=Timer A counts down to zero and repeats 
continuously 
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Bit 4; 1=Absolute loading of start value in timer A. This bit 
functions as a strobe. It must be set for each 
absolute load. 

Bit5: This bit determines the source of the timer trigger. 
1=timer counts rising CNT edges, 0=timer counts 
system clock pulses. 

Bit 6: 1=SP is output, 0=SP is input 

Bit 7: 1=Real-time clock trigger is 50Hz 
O=Real-time clock trigger is 60Hz 


REG 15 CRB (Control register B) 
Access: Read/write 
Bits 0-4: These bits have the same meaning as in REG 14, 
except they apply to timer B and PB7. | 
Bits 5-6: These determine the source of the trigger for timer 
B. 00=timer counts system clocks, 01=timer counts rising 
CNT edges, 10=timer counts timeouts of timer A, 11=timer 
counts timeouts of timer A when CNT=1. 


3.3 I/O Ports 


Ports A and B each consist of an 8-bit data register (PRA or PRB) and 
an 8-bit data direction register (DDRA or DDRB). When a bit is set in the 
DDR, the corresponding bit in the PR functions as an output. If a bit in the 
DDR=0, the corresponding bit in the PR is defined as an input. 


During a read access, the PR returns the current condition of the 
corresponding pins (PAO-7, PBO-7); it does this for both input and output 
pins. PB6 and PB7 can assume output functions for the two timers. 


The data transfer between the CIA and the "outside" world connected to 
PA/PB can be accomplished with handshaking. PC and FLAG are used for 
this. PC goes low for one clock period when a read or write access occurs 
on PRB. This signal can indicate the availability of data on PRB or indicate 
receipt of data by PRB. FLAG is a trailing-edge triggered input which can 
be connected to the PC of another CIA, for example. A trailing edge on 
FLAG sets the FLAG interrupt bit. 


The serial data port SDR is a synchronous 8-bit shift register. CRA bit 


6 determines the input or output mode. In the input mode the data are 
accepted into the shift register on a rising edge on CNT. After 8 CNT pulses 
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the contents of the shift register are placed in SDR and the SP bit in ICR is 
set. In the output mode timer A functions as a baud rate generator. The data 
are shifted out of SDR to SP at half the timeout frequency of timer A. The 
theoretical limit to the baud rate is 1/4 of the system clock. 


The transfer begins after data are written to the SDR, assuming timer A 
is running and is in the continuous mode (CRA bit 0=1 and bit 3=0). The 
clock derived from timer A appears on CNT. The data from SDR are loaded 
into the shift register and are shifted out on every trailing edge on CNT. 
After 8 CNT pulses, the SP signal is created. If the SDR is loaded with new 
data before this event, these are automatically loaded into the shift register 
and shifted out. No interrupt is generated in this case. 


The data in SDR are shifted out high-order bit first. Data going into the 
register must following the same format. 


3.4 The Timers 


Both timers have a 16-bit timer (read-only) and a 16-bit temporary 
storage (write-only). If a timer is read, its current contents are returned. 
When writing, the data are first written to the temporary storage. 


Both timers can be used independently of each other or in connection. 
The various operating modes allow long time delays, variable pulse lengths, 
and pulse chains. By using the CNT input, the timer can measure external 
pulses or frequencies. 


Each timer has a control register (CRA and CRB) assigned to it, which 
allows the following functions: 


S 


Start/Stop (Bit 0) 
This bit allows the timer to be started or stopped at any time. 


PB ON/OFF (Bit 1) 
This bit directs the timeout to PB (PB6 for timer A, PB7 for timer B). 
This function has precedence over the data direction set in DDRB. 


Toggle/Pulse (Bit 2) 
This bit determines the method in which the timeout signals will appear 
on PB. Either the condition of PB is inverted at every timeout, or a 
positive pulse is created for the duration of the clock. 
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One-shot/Continuous (Bit 3) 
In the one-shot mode the timer counts from the temporary storage value 
down to zero, sets the IRC bit, reloads the timer with the temporary 
storage value and stops. In the continuous mode, this procedure does 
not stop. 


Force-load (Bit 4) 


This bit allows the timer to be loaded at any time, independent of 
whether it is running or not. 


Input mode (Bit 5 CRA, Bits 5-6 CRB) 
These bits select the clock which determines the rate at which the timers 
will count down. Timer A can be clocked either by the system clock or 
by a clock supplied on CNT. Timer B can be further clocked by the 
timeout pulses from timer A, either absolutely or dependent on CNT=1. 


3.5 The Real-time Clock 


There is a 24-hour real-time clock (TOD) in the CIA with a resolution of 
1/10 second. In consists of four registers: Hours, minutes, seconds, and 
1/10ths of second. In the hour's register, the highest bit (bit 7) indicates 
whether it is AM or PM. All registers are given in BCD format so that the 
clock can be used without a lot of processor effort, even in machine 
language. 


The clock is a 50/60 Hz signal at the pin TOD, which can be 
programmed in CRA bit 7. In addition, there is an alarm register that can be 
used to generate an interrupt at any desired time. The alarm register 
occupies the same address as the TOD register, so the access is controlled 
by CRB bit 7. 


Note that the alarm register is write only! Any read access returns the 
TOD register regardless of the state of CRB bit 7. 


In order to be able to properly set and read the alarm time, the following 
order must be preserved: 


If the hours register is written, the clock automatically stops--it starts to 


run when the tenth of second register is loaded. The starting of the clock can 
be controlled exactly in this manner. 
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Since a carry can occur in a register already read when reading the 
clock, the registers are stored in temporary storage. This temporary storage 
is freed again when the tenths of a second are read. 


3.5.1 Real-time in BASIC 


Most of you probably know about the "clock" available from BASIC, 
TI$ and TI. Unfortunately the long-time accuracy of this clock leaves much 
to be desired; it is off about 1/2 hour per day. 


If you need a more exact time indication, you can use the real-time clock 
built into the CIA. Thie CIA clock uses the line frequency, which has 
excellent long-term accuracy. 


Here are two BASIC programs, one for setting the clock time, and one 
for reading it. Since it doesn't make a whole lot of sense to read the tenths, 
the register is always set to zero. 


10 C=56328: REM BASE ADDRESS OF THE CLOCK IN CIAl1 

20 REM C=56584 FOR THE CLOCK IN CIA2 | 

30 POKE C+7,PEEK(C+7) AND 127: REM SET CLOCK TIME 

40 POKE C+6,PEEK(C+6) AND 128: REM LINE FREQ=60HZ 

50 INPUT "PLEASE ENTER THE TIME IN THE FORMAT 
HHMMSS: ";AS 

60 H=VAL(LEFTS (AS, 2) ) 

70 M=VAL (MIDS (A$,3,2) ) 

80 S=VAL (MIDS (AS,5)) 

90 IF H>23 THEN 40 : REM ERROR 

100 IF H>11 THEN H=H+68 : REM SET PM FLAG IF 
NECESSARY 

110 POKE C+3,16*INT(H/10) +H-INT (H/10) *10 

120 IF M>59 THEN 40 : REM ERROR 

130 POKE C+2,16*INT(M/10) +M-INT (M/10) *10 

140 IF S>59 THEN 40 : REM ERROR 

150 POKE C+1,16*INT(S/59)+S-INT(S/59) *10 

160 POKE C,0 : REM TENTHS -- START CLOCK 


The values are converted to BCD format in lines 110,130, and 150. 
You can use the following program to read the clock: | 
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10 C=56328 : REM BASE ADDRESS OF THE CLOCK IN CIAI1 
20 PRINT CHRS (147) : REM C=56584 FOR CLOCK IN CIA2 
30 H=PEEK (C+3) :M=PEEK (C+2) :S=PEEK (C+1) : T=PEEK (C) 
40 FL=1 

50 IF H>32 THEN H=H AND 127: FL=0: REM FLAG FOR PM 
60 H=INT (H/16) *10+H-INT (H/16) *16:ON FL GOTO 80 

70 IF H=12 THEN 90: ELSE H=H+12 

80 IF H=12 THEN H=0 

90 M=INT (M/16) *10+M-INT (M/16) *16 

100 S=INT(S/16) *10+S-INT (S/16) *16 

110 TS=MIDS$ (STRS$ (T) , 2) 

120 HS=RIGHTS ("0"+MIDS$ (STRS (H) ,2) ,2) 

130 MS=RIGHTS ("0"+MIDS (STRS (M) ,2) ,2) 

140 SS=RIGHTS ("O"+MIDS$ (STRS (S) ,2),2) 

150 PRINT "<Home>"; 

160 PRINT HS;":"sMS;":"sSS;"%:"sTS 

170 GOTO 30 : REM LOOP 


If you press the STOP/RESTORE key combination, the clock must be 
reset because the operating system sets all of the registers back to the 
starting values. Unfortunately, the bit responsible for the clock (50/60Hz) is 
also affected by this. 


3.6 The CIAs in the Commodore 128 


If you want to make use of the CIAs in the Commodore 128, you must 
remember that the CIAs have predetermined tasks to perform. Its first 
priority is to handle the interrupts, which the operating system requires for a 
number of routines. If possible, refrain from changing the ICR register. 


CIA 1: Base address $DC00 (56320) 


REG 0 (PRA) 
Bits 0-7: In normal operation the row selection of the 
keyboard matrix is found here. Some bits are also connected 
to controller port 1 on the outside of the computer. This is 
used to connect joysticks or paddles. 
Bits 0-4: Joystick 0, order: up, down, (left right, and fire 
button). 
Bits 6-7: Select paddle set A/B. Only one of the two bits may 
be 1. 
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REG 1 


REG 13 


_ (RB) 


Bits 0-7: In normal operation the column selection of the 
keyboard matrix is found here, if a key was pressed. 

Bits 0-4: The same function as REG 0, but for control port 2 
(joystick 1). 

(ICR) 

Bit 4: Input data on cassette port. 


Timer A and CRA are required for the disk operation, timer B & CRB for 
the cassette operation. 


CIA 2: Base address $DD00 (56576) 


REG 0 


REG 1 


REG 13 


(FRA) | , | 
Bits 0-1: VA 14-15 (highest-order address bits of the video 


Bit 2: TXD (only in connection with an RS-232 cartridge, 


else free), | 

Bit 3: ATN (serial bus output) 
Bit 4: CLOCK (serial bus output) 
Bit 5: DATA (serial bus output) 
Bit 6: CLOCK (serial bus input) 


Bit 7: DATA (serial bus input) 


(PRB) 

Bits 0-7: User port/RS-232. These bits have following 
meaning when an RS-232 cartridge is inserted: 

Bit 0: RXD (Receive Data) 

Bit 1: RTS (Request To Send) 

Bit 2: DIR (Data Terminal Ready) 

Bit 3: RI (Ring Indicator) 

Bit 4: DCD (Data Carrier Detect) 

Bit 6: CTS (Clear To Send) 

Bit 7: DSR (Data Set Ready) 


(ICR) 
Bit 4: RXD (only for RS-232 operation, else free). 


Timer A & CRA are required for the RS-232 baud rate, timer B & CRB for 
the RS-232 bit checking. 
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3.7 The Joystick 


In addition to the BASIC 7.0 commands for reading the joystick you 
can use the following BASIC program for interpreting the data: 


10 J1=56320 : REM JOYSTICK PORT 1 

20 J2=56321 : REM JOYSTICK PORT 2 

30 J=PEEK(J1) : REM READ FROM PORT 

40 IF (J AND 1)=0 THEN PRINT "UP "; 

50 IF (J AND 2)=0 THEN PRINT "DOWN "; 
60 IF (J AND 4)=0 THEN PRINT "LEFT "; 
70 IF (J AND 8)=0 THEN PRINT "RIGHT "; 
80 IF (J AND 16)=0 THEN PRINT "FIRE"; 
90 PRINT: GOTO 30 


The program reads from joystick port 1; if you want to read from port 
2, you need only replace J1with J2 in line 30. 


If you want control in two directions at once, such as up and right, this 
can also be read--in our example both directions are displayed on the screen. 
This increases the number of directions from 4 to 8. 


3.8 The Commodore 128 Serial Bus 


Peripheral devices are connected to the computer via the serial bus. 
_ These can be such things as a printer or disk drives. You can think of a bus 
as working like this: Data is transported from the computer over the bus to 
specific stops (peripheral) and they return via the same path. The serial bus 
built into the Commodore 64 and 128 is a trimmed-down version of the bus 
included in the "larger" Commodore computers. The "big" bus has 24 lines 
while the "smaller" bus has only 6. This reduction may have been made for 
reasons of cost or space, but this bus has definitely contributed to the 
success of the Commodore computers (Many even think that it is 
Commodore's secret recipe). 
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Here is the pinout of the bus: 


1 SRQ; Service request. If a device has completed a task and now 
needs new data, or has some to send, or requires some kind of 
action, it can signal the controller by means of this line (like in the 
hospital where you can ring for a nurse). This initiates an identify 
cycle (by means of EOI or ATN), in order to determine which device 
is involved. This function is not used on the Commodore. 


2 GND; ground connection 


3 ATN; (In) ATtentioN. Whenever the controller wants to send a 
command, it activates this line. It must still be determined for which 
device the command is intended (all of the devices should "listen"). 
This is done when the device address is transmitted so that the other 
devices can get off the bus. 


4 CLK; (In/Out) CLocK. Since the data travel through the bus bit by bit 
in serial and not in parallel, the TALKER sends a CLK pulse along 
with each bit, which indicates the validity of the data line. 


5 DATA (In/Out) is the sole data line, over which a data byte is shifted 
with the lowest-order byte first. 


6 RESET; sends a reset to the connected devices. 





All of the additional lines found on the larger bus, like EOI, NDAC, 
etc., are simulated or replaced by the two lines CLK and DATA. The time 
between the signal jumps of the two lines gives information about the 
signal. 
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You may think it a waste to leave one line unused on the already puny 
bus. But unfortunately, that's the way it is--at least in the "normal" mode. 


If there is a "normal" mode, you know there must be some other 
"abnormal" mode. This is true! As you know, the 1541 can hardly be 
described as a fast disk drive (quite the opposite). This is because each byte 
must be picked to pieces and then sent over the bus bit by bit. This 
deplorable state of affairs must be corrected--what good is a super machine 
like the Commodore 128 when it has such a handicap? Commodore 
developed the 1571 disk drive which loads up to eight times (!) faster than 
the 1541 (you can find out more in the book 1571 Internals by Abacus 
Software). Other things have been added in the CP/M mode as well. The 
speed advantage is possible only in the 128 mode, not in the 64 mode. The 
1541 can be operated as usual in the 128 mode. 


You may have already given some thought as to how this speed 
increase was accomplished; with the help of the unused SRQ signal. In the 
fast serial mode this line is used as second CLK line, as a fast, bidirectional 
CLOCK line. 


On power-up, the 1571 is always in the slow mode, which is why you 
can connect it to a C-64. The user can then specify the "fast" mode, which 
will remain in effect until it is turned off. The existing kernal routines in the 
C-128 have been changed in order to recognize the fast and slow modes. 
There is a special flag in the kernal to indicate if the current peripheral device 
is fast or slow. 


In order to declare the 1571 as a fast device, the user must send an HRF 
signal (Host Request Fast). This is done by sending eight CLOCK pulses 
over the SRQ line. The 6526 on the control board of the 1571 disk drive 
recognizes this signal and generates an interrupt. A flag is then set in the 
drive which indicates the fast mode. If the disk drive is the LISTENER and 
receives data, it sends a DRF signal (Device Request Fast). By means of 
this signal the computer recognizes that the disk drive can send and receive 
data in the fast mode. A 1541 can't send this signal, of course. The 
fast-mode flag in the computer can be reset by the following occurrences: 


UNLISTEN, UNTALK, bus error, and <RUN/STOP><RESTORE> 
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It's possible to connect a variety of devices to the serial bus, such as 
two disk drives and a printer. This makes it necessary to be able to 
distinguish between the different devices so that the data know where they 
have to "get off the bus." You can imagine a device address as a house 
number. The values 0-30 are possible as device addresses. 


Device address 
Q-3 Internal device (keyboard, screen, user port, cassette 
port) 
4-7 Normally CBM printer 
8-11 Normally CBM disk drives 
12-30 Not used 


The device address contains additional information besides the actual 
device number: the action which is to be performed. The possible actions 
are the following: 


32 The device is addressed as a LISTENER, which means that it is to 


receive data. 
This action is called for by the BASIC command PRINT# or 
DSAVE, for instance. 

64 The device is supposed to be the TALKER; it is supposed to send 
data. 
This is used, for example, by the BASIC commands INPUT# or 
DLOAD. 


48 The operating mode LISTEN is ended (UNLISTEN). The lower 
half-byte (device) is always 15. 


80 The operating mode TALK is ended (UNTALK). The lower half-byte 
is always 15. 


For example, if you want to address a printer with the device address 4 
for printing, the whole device address is 32+4=36 ($24). 
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3.8.3 The secondary address 


The secondary address does not select a device on the serial bus--it is 
used to select a mode in the device addressed. For example, a specific 
printing mode can be selected on most printers by specifying a secondary 
address. On the CBM printers, secondary address 0 selects the 
upper/graphics mode, secondary address 7 selects the upper/lowercase 
mode. With a disk drive one can choose a data channel with the secondary 
address. 


The secondary address is also composed of the actual secondary 
address and the connection in which the secondary address occurs. 


96 PRINT, INPUT, or GET 
224 CLOSE 
240 OPEN 


This next table will also prove useful. It shows the bit patterns for the 
individual device and secondary addresses. 


Command Abbreviation Binary value 

Host Request Fast HRF $1111 1111 
Device Request Fast DRF %0000 0000 
Talk address (TA) %$010x xxxx 
Listen address (LA) $001x xxxx 
UNTALK (UNTLK) $0101 1111 
UNLISTEN (UNLSN) $0011 1111 
SA OPEN (SA(O)) $1111 yyyy 
SA CLOSE (SA(C)) $1110 yyyy 
SA normal (SA) | $011z zzzz 


The normal secondary address (zzzz) may have a value between 0 and 
31. The channel address (yyyy) may have a value between 0 and 15. As an 
example, the secondary addresses and their meaning for the 1541 disk 
drives: 


00 - PRG type (read data channel) 

01 - PRG type (write data channel) 
02-14 - Channels for all file types 

15 - Command channel 
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3.8.4 The system variable ST 


When peripheral devices are connected, errors can naturally occur. The 
system variable ST gives information about whether the last action on the 
serial bus was successful or not. If it was not successful, the error can be 
analyzed by means of the error code passed in the status variable ST. ST 
can have the following values: 


1 Can occur after OPEN or PRINT. After transmission of a byte, no 
acknowledgement was received via NDAC within 64milliseconds 
(ms), and it will probably not come. 


2 Can occur during INPUT or GET. If a device is addresses as a 
TALKER and does not send a byte within 64ms, ST contains this 
value. 


64 The data byte last transmitted was sent in connection with an EOI 
(End Of Information), which means the end of the file EOF) for the 
disk drive. 


-128 An addressing attempt produced no reaction on the drive. In this case 
a BASIC program will display the error message DEVICE NOT 
PRESENT; in machine language you can react in whatever manner is 
appropriate. 


A combination of these values can also occur. Here it is advisable not to 
read the absolute value in a BASIC program, but just the appropriate bit: 


1000 IF (ST AND 64) THEN PRINT "<EOF>" 


To read the status word ST in machine language, it is necessary to get it 
from the zero page. Fortunately, it is at the same address in both the 64 and 
128 modes: $90 (144 decimal). Reading the value in machine language 
would look like this: 


LDA $90 ;Get status variable 


AND #$40 ;bit 6 set? 
BNE BOF ;BEOF reached 
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Chapter 4: The Sound Chip SID 


4.1 The Sound Controller 
4.1.1 General information about the SID 


Music is an interesting computer applications area. You are fortunate 
that such a powerful synthesizer (the SID chip) is contained inside the 
C-128. It is the same component contained in the Commodore 64. Almost 
every game uses some of the SID's soundmaking capabilities, but none 
really push the chip to its limits. Often the best-known melodies can be 
heard coming from the computer in all possible and impossible tone colors. 
The computer can also talk, thanks to the SID, without additional hardware. 
All it needs is the right program. 


SID stands for Sound Interface Device. While many synthesizers have 
only one voice (monophonic), the SID has three completely independent, 
freely programmable voices (polyphonic). Competing computers have also 
adopted this element and installed polyphonic synthesizers. 


Here are the important features of the SID 6581: 


* 3 independent, freely programmable voices 

* 4 mixable wave types for each voice 

* 3 mixable filters (highpass, lowpass, bandpass) 

* Envelope generator (ADSR control) for each voice 
* 2 cascadable ring modulators 

* alternation option for external signal sources 

* Two 8-bit A/D converters 
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The Block Diagram of the SID 
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4.1.2 Pinout of the 28-pin device: 


1-2 CAP1A, CAP1B; connection for capacitor for programmable 
filter. Recommended capacitance: 2200pF. 

3-4 CAP2A, CAP2B; like 1-2 : 

5 -RES (reset); =0 brings the SID back to start-up state 

6 02 (system clock); all data bus actions occur only while 02=1 

7 R/W (read/write); 0=write access, 1=read access 

8 -CS (chip select); O=data bus valid, 1=data bus high-Z 
(tri-state) | 

9-13 AO-A4 (address bits 0-4); serve to select one of the 29 registers 

1 GND (ground); Note: The SID should have its own ground 
connection for power in order to reduce interference with or 
from other system components. 

15-22 D0O-D7; data lines to and from the processor system 

23 A2IN (analog input 2); operation described in Section 4.1.4 

24 ALIN (analog input 1); as 23, except for A/D converter 1 

25 VCC; supply voltage +5V 

26 EXT IN (external input); input for external audio signals to be 
alienated through the SID. 

27 AUDIO OUT; summed output of all signals created in the SID 

28 VDD; supply voltage +12V 


As we already mentioned, the SID 6581 has three independently 
programmable voices. 


No doubt some of our readers have already programmed sounds or 
sound sequences in BASIC 7.0. However, complex sound and music 
cannot be produced using the BASIC 7.0 commands. Also, the easy-to-use 
commands are not available in the 64 mode; this is no reason to give up 
since you can get a lot out of the SID with POKE commands; in principle 
the ee 7.0 interpreter does the same thing when it executes your 
commands. 


Those of you who have programmed some sounds in BASIC are 
familiar with or aware of terms like "envelope" and "amplitude modulation.” 
We will explain these terms for everyone because they are very important 
when working with the SID. 


Each voice consists of an oscillator, an envelope generator, an 
amplitude modulator, and waveform generator. With a clock frequency of 
1MHz, the oscillator creates a fundamental frequency in the range 0-8200Hz 
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with a resolution of 16 bits. Four different waveforms are possible: 
sawtooth, square (with variable duty cycle), triangle, and the "white noise" 
familiar to every hi-fi freak. The waveform is an important criterion for the 
tone picture of the created sound, since every waveform has its own set of 
harmonics. A triangle wave is very soft, like a wood flute. The sawtooth 
waveform sounds more metallic, like a trumpet. A clarinet resembles a 
Square wave; it sounds very hollow. This leaves the white noise, which 
doesn't really resemble any instrument, but can be used to simulate drums. 
Special noise effects can be best created by superimposing another 
waveform on the noise. Noise is achieved through the superimposition of 
many random frequencies. 


The amplitude modulator affects the volume while the tone is being 
generated. This modulator is controlled by the envelope generator, which 
you can program directly. We will see how the envelope generator is 
programmed later. 


In addition, the outputs of the all the devices can be sent to a 
programmable filter where you can further influence the tone color. Another 
possibility for SID fans: Voices 1 and 2 can be ring-modulated by voice 3. 
That means that it consists of the fundamental voice together with the sum 
and difference with voice 3. With voice 3 you can read out the current value 
of the envelope generator during the course of a sound and then change the 
filter based on this data, for instance. 


4.1.3 Register description of the SID 


The base address of the SID 6581 is $D400 (54272). 


REG 0 Lower byte of oscillator frequency for voice 1. 
REG 1 Upper byte of oscillator frequency for voice 1. 
REG 2 Pulse width LSB for voice 1. 
REG 3 Pulse width MSB for voice 1. 


Registers 2 and 3 determine the on/off duty cycle of the 
square output on voice 1. Only bits 0-3 of register 3 are 
used. 
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REG 4 


REG 5 


Control register for voice 1 . 

Bit 0: KEY; Control bit for the course of the envelope 
generator. When changed from 0 to 1, the volume of voice 1 
increases from zero to the maximum value (REG 24) within 
the "attack" time specified in REG 5 and then within the 
"decay" time specified in REG 5 falls to the "sustain" level 
programmed in REG 6, at which it remains until the control 
bit is changed to zero again. Then the volume falls to zero 
within the "release" time specified in REG 6. | 

Bit 1: SYNC; 1=oscillator 1 is synchronized with oscillator 
3. This bit also has effect when voice three is supposed to be 
silent. 

Bit 2: RING; 1=the triangle waveform output of oscillator 1 
is replaced by a frequency mix (sum and difference of the 
frequencies of voices 1 and 3). This effect also occurs when 
voice three is silent. | 

Bit 3: TEST; When another waveform is selected along with 
the noise generator in the same oscillator, it can occur that the 
noise generator is disabled. It can be re-enabled with this bit. 
Bit 4: TRI; 1=triangle wave form selected. 

Bit 5: SAW; 1=sawtooth waveform selected. 

Bit 6; PUL; 1=square waveform selected. The on/off 
oo of this waveform is controlled in REG 2 and 
REG 3. | 
Bit 7: NSE; 1=noise generator selected. 

Note for bits 4-7: It is possible in practice to select multiple 
waveforms at the same time. In addition to what was said for 
bit 3, it should be noted that result is not exaclty the sum of 
all of the forms but more of a logical AND of the 
components. 


“ATTAC/DECAY 


Bits 0-3: These bits determine the time it takes until the 
volume falls from the maximum value to the sustain level. 
The selectable range is from 6ms to 24 seconds. 
Bits 4-7: Here the time is takes for the volume to reach the 
maximum value after the KEY bit is set is defined. The 
selectable range is from 2ms to 8 seconds. | 


77 


Abacus Software C-128 Internals 


eee SSS SSS SSS Sse cess 


REG 6 


REG 7-13 


REG 14-20 


REG 21 


REG 22 


REG 23 


SUSTAIN/RELEASE 

Bits 0-3: These bits determine the time within which the 
volume will fall from the sustain level after the KEY bit is 
cleared (end of the tone). The selectable range is 6ms to 24 
seconds. 

Bits 4-7: These bits specify the sustain level, the volume 
which will be maintained after the maximum value is reached 
and before it falls back. 


These registers control voice 2 in the same manner as do 
register 0-6, with the following exceptions: 

SYNC synchronizes oscillator 2 with oscillator 3. 

RING replaces the triangle output of oscillator three with the 
frequency mix of oscillators 2 and 3. 


These registers control voice 3 in the same manner as do 
registers 0-6 for voice 1, with the following exceptions: 
SYNC synchronizes oscillator 3 with oscillator 2. 

RING replaces the triangle wave from oscillator 3 with the 
frequency mix from oscillators 2 and 3. 


Filter frequency, low-order byte 
Only bits 0-2 are used. 


Filter frequency, high-order byte 

The 11-bit number in registers 21 and 22 determines the 
frequency. 

In the Commdore 128 this frequency is determined as 
follows: | 
F=(30+W*5.8) Hz, whereby W is the 11-bit number. 


Filter resonance and switch 

Bit 0: 1=voice 1 is directed to the filter 

Bit 1: 1=voice 2 is directed to the filter 

Bit 2: 1=voice 3 is directed to the filter 

Bit 3: 1=the external source is directed to the filter 

Bits 4-7: These bits determine the resonance frequency of the 
filter. These are used to enhance specific sections of the 
frequency spectrum. The effect is especially noticeable on the 
sawtooth waveform. 
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REG 24 


This register has the following purposes: 

Bits 0-3: Total volume 

Bit 4: Switches the lowpass filter on 

Bit 5: Switches the bandpass filter on 

Bit 6: Switches the highpass filter on 

The high and lowpass filters have a slope of 12 dB/octave. 
The bandpass filter has a slope of 6 dB/octave. 

More than one filter can be enable at a time. If, for example, 
the high and lowpass filters are enabled, a notch filter results. 
In order to hear the effects of the filter, at least one filter must 
be enabled and at least one voice must be directed to the 
filter. 

In general, the filter is used to filter out specific ranges of the 
frequency spectrum. 

Filtering allows much finer and more ingenious manipulation 
of the tone picture than simply selecting the waveform 
permits. | 

Different instruments can be simulated perfectly by changing 
the filter frequency during the tone. 


Bit 7: 1=voice 3 silent. This should be used whenever voice 
3 is used to control the other voices. 


All of the register described so far can only be written to. A read access 
returns no useful information. Only read accesses may be made to the 


following registers: 

REG 25 A/D Converter 1 

REG 26 A/D Converter 2 

REG 27 Noise generator for voice 3 


REG 28 


This register returns a random number which corresponds to 
the current state of the noise generator 3. The generator must 


- oe i but voice 3 can be made inaudible (bit 7 in REG 


Envelope generator for voice 3 

This register returns the current condition of the relative 
volume of voice 3. This can be used to vary the frequency or 
filter parameters during the tone creation, for example. An 
example of this can be found in section 4.2.2. 
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Now that we have seen the table of registers, we want to clarify their 
use by means of short examples. We will place the emphasis on the 
tone-producing registers in section 4.1.5. Now we will examine the A/D 
converters. 


4.1.4 The analog/digital converter 


The words analog and digital are widely known. For example, clocks 
and watches with hands are called analog, while ones which display the 
time using numerals are called digital. These terms are derived from the way 
in which the time is displayed. 


An A/D converter is a device for converting an analog signal, such as a 
voltage, to a digital value. The problem is that one must convert an analog 
value with theoretically an infinite number of levels to a finite digital value 
with predetermined levels. In this conversion there is a maximum error of 
+/- the smallest digital step. 


As you can gather from the registers, the SID 6581 contains two A/D 
“ype These are designed with an internal reference voltage of about 
> Volts. 


The measuring procedure consists of charging an external capacitance 
and then placing a value in register 25 or 26 corresponding to the time 
required for a new charge of the capacitor to reach the reference voltage. 
This process is carried out repeatedly. 


4.1.4.1 The operation of the A/D converter 


A requirement of this type of A/D converter is that only resistance 
values can be measured, such as the position of a potentiometer, a 
light-sensitive resistance, or a temperature sensor. 


If voltages are to be measured, they must first be converted to the 
appropriate form, possibly with the help of a unijunction transistor. The 
measurement is made simply by connecting +5V to one end of the resistance 
and the other end to the analog input of the SID (available on the control 
port, the designations are POTX and POTY). The values read from register 
25 and 26 are measures of the resistances. | 
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In order to use the entire scale of 8 bits, the resistance must range from 
200 ohms (no smaller) to 200 Kohms. The programming aspects of the A/D 
converter are handled in the next section. 


4.1.4.2 Using paddles 


Paddles are nothing more than potentiometers in handheld form and are 
therefore well suited for the A/D converters. The generic Atari type paddles 
can be connected to the Commodore 128. These are connected to control 
port 1 or 2 where you connect a joystick. 


Since some bits in CIA 1 and 2 are responsible for reading the keyboard 
as well as the paddles, writing a program to read the paddles is not all that 
simple. The best thing to do is to turn the keyboard off to inhibit 
nonsensical values, but only during the exact time of access of the paddles, 
since otherwise the keyboard will not be read. 


We want to show you a short machine language program that makes it 
possible to read the paddles with ease. The best thing to do is to include it in 
your BASIC programs in the form of a BASIC loader. The program 
occupies the area from $OCO0to $0C41. This area was chosen because it is 
free in C-128 mode. You can of course move it if you want to use it in 
C-64 mode, remembering to change the address $0C03 and $0C16 
accordingly. 


OCOO SEI ; INHIBIT KEYBOARD 

OCO1l LDA #S$80 ;PARAMETERS FOR PADDLE SET A 
O0C03 JSR SOC2E ;GET A/D VALUES Al AND A2 
OCO6 STX $0201 ;AND STORE 

OCO9 STY $0202 

OCOC LDA SDCOO ;GET KEYS A FROM CIAI1 


OCOF AND #S0C r;EILTER OUT REQUIRED BITS 
OC11 STA $0200 ,AND STORE 
OC14 LDA #$40 ; PARAMETERS FOR PADDLE SET B 


0OC16 JSR S$OC2E ;GET A/D VALUES Bl AND B2 
0C19 STX $0203 ,; AND STORE 

OC1C STY $0204 

OC1F LDA $DCO1 *;GET KEYS B FROM CIA2 
OC22 AND #S0C ;FILTER OUT REQUIRED BITS 
0C24 STA $0205 ; AND STORE 
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OC27 
0c29 
OC2c 
OC2D 
OC2E 
0C31 
0C33 
0C36 
0C38 
0C39 
0C3B 
OC3E 
O0C41 


#SFF 
SDC92 


SDCOO 
#SCO 
SDCO2 
#500 


SCFF6 
$D419 
SD41A 


,ALL BITS OUTPUT IN CIA 1 
;TO REENABLE KEYBOARD READ 


;RETURN TO BASIC PROGRAM 
;SELECT PADDLE SET 

; AND SET CORRESPONDING BITS 
;TO OUTPUT 

;DELAY LOOP 

;TO QUIET THE 

;A/D INPUT 

;GET A/D 1 

;GET A/D 2 

;BACK TO MAIN PROGRAM 


Here is the BASIC loader with an example program. Connect the 
paddles, start the program, and see what it does. 


POKE 
DATA 
DATA 
DATA 
DATA 
DATA 


READ A: POKE M,A: NEXT 


54528, 32: REM SET CONFIGURATION 128 ONLY 
120,169,128, 32,46,12,142,1,2,140,2,2,173 
0,220,41,12,141,0,2,169, 64, 32,46,12,142 
3,2,140,4,2,173,1,220,41,12,141,5,2,169 
255,141,2,220, 88, 96,141,0, 220, 9,192,141, 2 
220,162,0, 202,208, 253,174,25,212,172,26, 
212,96 
FOR M = 3072 TO 3072 + 65 


LANGUAGE 


AX = 
AY = 
BA 
BX 
BY 
BB 


SYS 


2 we. 
516 
5117 
513 
514 
512 


3072 


"PEEK (BB) 
170 GOTO 140 


REM LOAD MACHINE 


REM PADDLE 1 CONTROL PORT 1 
REM PADDLE 2 CONTROL PORT 1 
REM BUTTON PADDLE 1 
REM PADDLE 2 CONTROL PORT 2 
REM PADDLE 2 CONTROL PORT 2 
REM BUTTON PADDLE 2 
PRINT"<CLR>" 
REM START M/L 
PRINT"<HOME>" PEEK (AX) " 
PRINT" <CRS DOWN TWO>" PEEK (BX) " 


"PREK(AY)”™ “PEEK (BA) 
"PEEK (BY) " 
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4.1.5 Programming the SID 


We have already talked about terms like envelope and ADSR control; 
we will now look at how we can program the SID directly in machine 


language. | 


The tone color is determined by the selection of the waveform; filters 
can further be used to change the tone picture. The envelope determines the 
course of the tone, the volume, the length of the rise, etc. The following 
figure should clarify the individual stages that a sound goes through: 


15 


VOLUME LEVEL 





0 ATTACK DECAY SUSTAIN r RELEASE — 
GATE BIT ON GATE BIT OFF 


We can recognize from the figure that sound is divided into four basic 
Stages: attack, decay to sustain level, sustain, and release to zero. The 
duration of individual stages can be set for each voice independently. The 
attack of the tone starts when the KEY bit is set (bit 0, register 4 for voice 
1). All values, including frequency, attack, decay, sustain, and release, 
must be defined before the KEY bit is set! 3 


The tone rises from zero to the maximum volume (REG 14) within the 
time frame defined in attack (REG 5, bits 4-7). After the maximum value is 
attained, the volume drops to the sustain volume (REG 6, bits 4-7) within 
the decay (REG 5, bits 0-3) time. This volume is maintained until the KEY 
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bit is cleared. Once this happens, the volume falls back to zero within the 
release time (REG 6, bits 0-3). The register numbers given in parentheses 
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refer to voice 1. For voice 2 you must add 7, and add 14 for voice 3. 


The duration of the attack can be defined in a time frame from 2ms to 8 
seconds. The values for decay and release lie in the range 6ms to 24 


seconds. These time frames are divided into 16 steps, which you see in this 


table: 


Cc 
© 


Attack Decay/Release 


2 ms 6 ms 
8 ms 24 ms 
16 ms 48 ms 
24 ms 72 ms 
38 ms 114 ms 
56 ms 168 ms 
68 ms 204 ms 
80 ms 240 ms 
100 ms 300 ms 
250 ms 750 ms 
500 ms 15s 
800 ms 2.45 
ls 35 
35s eS 
5s 15s 
8S 245s 


The following program is designed to familiarize you with the 
waveforms and sound range of the SID 6581: 


10 Sl = 
20 S2= 
30 S$3 = 
40 FL = 
50 FH = 
60 RS = 
70> Pi = 
80 POKE 


54272 
54279 
54286 
54293 
54295 
54295 
54296 


S1+4, 0: 


: REM VOICE 1 

: REM VOICE 2 

: REM VOICE 3 

: REM FILTER LO-BYTE 

: REM FILTER HIGH BYTE 

: REM RESONANCE AND COUNTER 


REM VOLUME 
POKE S$2+4,0: POKE S$3+4,0: REM 


CONTROL REGISTERS AT 0 
90 POKE $1+2,0: POKE S2+2,0: POKE $3+2,0: REM 


PULSE AT 0 
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100 POKE S$1+5,0: POKE S1+6,240: REM ATTACK/DECAY 


VOICE 1 
120 POKE RS,0: POKE PL,15: REM RESONANCE/ VOLUME 
=15 


130 PRINT "TRIANGLE..." 

140 T = 16: GOSUB 400 

150 PRINT "SAWTOOTH..." 

160 T = 32 : GOSUB 300 

170 PRINT "SQUARE..." 

180 T = 64: GOSUB 300 

190 PRINT "NOISE..." 

200 T = 128: GOSUB 300 

210 PRINT END" 

220 END : 

300 POKE S1,0: POKE $1+1,0: REM FREQUENCY 

310 POKE $1+4, T+1: REM TONE, WAVE DEFINATION 
320 FOR I = 0 TO 255 : RFOR J = 0 TO 255 STEP 50 
330 POKE S1,J:POKE $1+1,I 

340 NEXT J,I | 

350 POKE S1+4,T; REM TONE 

360 RETURN 


Lines 10 to 80 should be included in every program using sound. After 
you have typed the program and started it, you will hear the frequency 
spectrum and the various waveforms of the SID. We want to give you an 
example of what happens when you change the envelope. For the sake of 
simplicity, take lines 10 to 80 from our example and add the following lines: 


100 A=9: D=9: S=8: R=9: H=400 

110 POKE S1+15,16*A+D: POKE S1+16,16*S+R 

120 POKE RS,0: POKE PL,15 

130 POKE S1,37: POKE S1+1,17: REM FREQUENCY 
140 POKE S1+4,33 : REM SOUND ON AND SAWTOOTH 
150 FOR I=0 TO H: NEXT 

160 POKE S1+4,32: REM RELEASE TONE 


You have no doubt noticed the significance of the individual variables: 
A=attack, D=decay, S=sustain, and R=release. The variable H is the 
duration of the sustain. Change the variables to get a feeling for the various 
sounds that different values can produce. Note that no variable, with the 
exception of H, may contain a value greater than 15. If you want to use the 
envelope, do not load register 4 with zero after the delay loop which defines 
the duration of the tone; this causes the tone to die. Do it like we did in the 
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example: When turning the tone on, load register 4 with the waveform+1. 


To turn the tone off, just load register 4 with the value for the waveform 
again. 


_ The best way to learn how anything works is to try it out. We would 
like to present a few more examples for you to experiment with. Feel free to 
change the tone parameters to see what sort of effects you can get. The next 


example program uses all three voices of the SID. Again, add lines 10-80 to 
this example. 


100 A=0: D=1: S=13: R=10: H=100 

110 POKE S$1+15,16*A+D: POKE S1+6,16*S+R 

120 POKE S2+15,16*A+D: POKE S2+6,16*S+R 

130 POKE S$3+15,16*A+D: POKE S3+6,16*S+R 

140 POKE RS,O: POKE PL,15 

150 POKE S1,37: POKE S1+1,17 

160 POKE S2,154: POKE.S2+1,21 

170 POKE $3,177: POKE S$3+1,25 

180 POKE S1+4,33: POKE S2+4,33: POKE S$3+4,33 
190 FOR I=0 TO H: NEXT 

200 POKE S1+4,32: POKE $2+4,32: POKE $3+4,32 


With the notes in DATA lines, you can use such a routine to play some 
music. At the end of this section is a program to play a song. 


The next example will demonstrate how the frequency of a tone can be 
changed in relationship to the envelope. Here we use voice 3 since it is the 
only one from which we can read the envelope. 


100 A=9: D=9: S=9: H=30 . 

110 POKE RS,0O: POKE P,15 

120 POKE S$3+5,16*A+D: POKE S3+6,16*S+R 

130 POKE S$3+4,33 

140 FOR I=0 TO H: POKE S$3+1, PEEK (54300): NEXT 
150 POKE S3+4,32 

160 FOR I=0 TO R*4: POKE S$3+1, PEEK (54300): NEXT 


We want to give you an example of a special effect created with "white 


noise”. We'll let the Federation Starship Enterprise roar through our living 
room: 
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100 A=15: D=0: S=8: R=13: H=800 

110 POKE RS,0O: POKE PL,15 

120 POKE S1,0: POKE S1+1,30 

130 POKE S2,0: POKE S2+1,1 

140 POKE S3,0: POKE S$3+1,100 

150 POKE S$1+5,16*A+D: POKE S1+6,16*S+R 
160 POKE S$1+4,129: POKE S3+4,23 

170 FOR I=0 TO H: NEXT 

180 POKE S$1+4,128: POKE S3+4,16 


To convert a note for the SID, you must insert th frequency of the note 
into the following formula: 


F=Freq/0.06097 


Since this value consists of a high and low value, we must process the 
calculated value further: 


FI=F AND 15: Fh=INT(F/256) 
4.2 The Filters 


The SID offers three filters which you can use individually or in 
combination. The harmonic content of a sound wave (which is what a tone 
is) 1s controlled by means of filters. The highpass filter dampens 
frequencies below a defined cutoff frequency. The tones then sound 
somewhat metallic. The opposite of a highpass filter is the lowpass filter. 
Frequencies above a defined cutoff point are damped by this filter. There is 
also a bandpass filter which allows only a narrow band of frequencies 
through. If the highpass and lowpass filters are combined, only the cutoff 


frequency is damped, all other frequencies are undisturbed. This is called a 
notch filter. 


In addition to filter type and filter frequency, you can also set the filter 
resonance. In order to understand the significance of this parameter, you 
should imagine the filter as a fourth oscillator in the sound chip. Filters, like 
oscillators, can be set to a specific frequency. 
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The resonance value that determines the filter itself works like an 
oscillator. If the resonance is set to zero, the filter simply cuts frequencies 
off (as already discussed). If the resonance value is increased step by step, 
the filter begins to oscillate more and more at the filter frequency. 


The maximum value of the filter resonance is 15--the sound of the 
oscillator directed through the filter is then radically changed and influenced 
by the filter frequency. It is easy to see that a whole spectrum of new 
sounds can be obtained using the filters. 


i The following register table shows which SID registers influence the 
ilters: 


Register ---- Contents ---- 
Bit7 Bit6 Bit5 Bit4 Bit3 Bit2 Bit1 BitO 

| - freq2 freqi1 freq O 
22 freql0 freq9 freq8 freq7 freq6 freq5 freq4 freq 3 
23 res3 res2 resil_ resOQ _ (filtext filt3 filt2 filtl 
24 3 OFF highp bandp lowp vol3 vol2 voll  vol0 


4.3 Synchronization and Ring Modulation 


The filters allow use to change the signals produced by the individual 
oscillators. There is another way to change the oscillator signal in the SID: 
the synchronization and ring modulation. 


While the only the signal of a single oscillator can be affected by the 
filter, synchonization and ring modulation give us the ability to change the 
signal of one or two oscillators in relation to their signals. An oscillator is a 
tone source, but its signal is determined by the signal of another oscillator. 


For ring modulation, the digital number values of the oscillations of a 
given oscillator and the oscillator to be affected are multiplied together 
within the SID and output through the affected oscillator. When the 
frequencies of the two oscillators is close, a very complex waveform results 
containing many non-harmonic overtones, so that it often sounds metallic or 
bell-like. 


88 


Abacus Software C-128 Internals 





Here is the program we promised that will play a song: 


O REM *** SONG = **x 
4 FOR I= 54272 TO 54296: POKE I,0:NEXT 
10 FIRST=54272 


11 VL =FIRST+24 
12 AN =FIRST+5 

13 OUT =FIRST+6 

14 H1 =FIRST 

15 H2 =FIRST+1 

16 VCl =FIRST+4 


20 POKE VL,15 

21 POKEAN, 23 

22 POKE OUT,123 

30 READ NTE,DUR 

40 IF NTE=0 THEN END 

50 F2=NTE /256:F1=NTE AND 255 

60 POKE H2,F2:POKE H1,F1l 

70 POKE VC1,33:FOR I O TO DUR*100:NEXT 

80 POKE VC1,32:FOR I O TO DUR*100:NEXT 

90 GOTO 30 

100 REM *** NOTES *** 

130 DATA 6430,1, 6430,1,6430,3,7217,2,5407,2 

140 DATA 6430,1, 6430,2,8583,3,9634,2, 9634,1, 
10814,2 

150 DATA 10814,3, 9634, 2, 9634,2,8583,1,8583,5, 
10814,1 

160 DATA 11457,3,10820,2,10814, 2, 9636,4,10814,1, 
9634,1 

170 DATA 9634,1,8583,11,10814,1, 9634,2,8534,5, 
10814,1 

180 DATA 12860,2,14435,5,12860,1,12860,2,10814,3 
9634,2 

190 DATA 9634,1,9634,2,10814,9,10814,2,11457,3 
10820,2 | 

200 DATA 10814,2,9634,4,10814,1, 9634,1, 9634,1, 
8585,15 - 

210 DATA 0,0 


This concludes out chapter on the SID. We hope that you have found 
enough information and suggestions to start working with this chip. This 
applies particularly to those of you who can and want to program in 
machine language. Have fun! 
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Chapter 5: The 8563 VDC Chip 


5.1 General Information 


As mentioned in Chapter 2, you can connect two monitors to your 
Commodore 128. The 40-column monitor is contrilled by the VIC chip. The 
80 column RGB monitor, is driven by the 8563 VDC. The 80-column 
Screen is well suited for professional applications that are impossible or 
more difficult with a 40-column screen. RGB stands for Red Green Blue, 
which means that the colors red, green, and blue can be displayed on the 
screen in various combinations. The color white, for example, is achieved 
with an equal mix of all three colors; the color yellow can be made with a 
combination of red and green. But don't worry--you don't have to figure 
out which colors you have to mix to obtain the one you want. We will come 
back to the color codes for the 15 possible colors. 


An important bonus of the VDC chip is that it doesn't use up any of the 
main memory for storing its screen contents. It has 16K of its own memory 
which it uses for video RAM and attribute RAM. Even the character 
generator is copied into this 16K. 


On the international models of the C-128, pressing the <ASCII/DIN> 
key copies a foreign language character set into memory. You will notice 
that it takes a little while before the cursor is ready again.This is because all 
4096 bytes of the charater generator are copied from ROM into the video 
controller RAM. Stop and think for a minute: Why 4096 bytes? There are 
two character sets. 2048 bytes are all that are required to define 256 
characters! You are right of course, but both character sets selected with the 
Commodore key on the 40-column screen are stored in the VDC memory. 
These two character sets can be displayed simultaneously on the 80-column 
screen. A bit in the attribute RAM determintes which character set is to be 
used. Since the character set is in the VDC RAM, it is easy to change the 
appearance of individual characters by simply changing the contents of the 
RAM. 


But all of these advantages that this separate video RAM offers us has 
another side to it. Addressing this RAM is quite complicated--it has to be 
done indirectly via two registers on the VDC chip. We will talk about this 
more later. 
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Those who think it would be boring to take a closer look at this chip are 
deceiving themselves. This chip offers an enormous number of possibilities; 
to describe them all would far exceed the scope of this book. Hackers are 
advised to take a closer look at this chip, since it seems that you always find 
something new that can be done with it. We will limit ourselves to the most 
important, most interesting possibilities. The expectations that one has for 
an 80-column controller are far exceeded: this video controller can display 
hi-resolution graphics with a resolution of 640x200 points! 


5.2 The Pinout: 


CCLK; Character Clock 

-DCLK; Dot Clock 

HSYNC; Horizontal Synchronization 
CS; System time 

Not connected 

-CS; Chip Select 

-RS; Resister Select (Address Line AO) 
-R/W; Read-Write Selection 

10-11 D7-D6; Data Lines D7-D6 

12 GND; 

13-18 D5-D0: Data Line DS-DO 

19 DISPEN; Display Enable (not wired) 
20 VSYNC; Vertical Synchronization. 

21 DR/-W; Display-RAM READ/WRITE 
22 -RES; Reset Line (output) - meaning unknown 
23 -RES; Reset Line (input) 

24 TST; meaning unkown 

25 LPEN; Light Pen 

26-33 DAO-DA&; address Display-RAM 
34-42 DDO-DD&; Data Lines Display-RAM 
37 VCC; operating voltage +5 V 

43 I; Intensity 


OCONIMKMARWN- 
On 


44 B; Blue 
45 G; Green 
46 R; Red 


47 -RAS: Low-Address Select 
48 -CAS; Column Address Select 
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5.3 The VDC Registers 


The 8563 VDC chip has a total of 37 registers available, which have the 
following meanings: (The values in parentheses indicate the default values 
that are loaded into the registers after a warm start.) 


REG 0 


REG 1 


REG 2 


REG 3 


REG 4 


REG 5 


REG 6 


HORIZONTAL TOTAL; (126) This register specifies the 
total number of characters per line, including the beam 
return. This register should be loaded with an 8-bit value © 
corresponding to the technical data of the monitor. 


HORIZONTAL DISPLAYED; (80) In this register the 
number of actual characters per line is programmed. All 8-bit 
values smaller than REG 0 are possible. The standard value 
is 80. 


HORIZONTAL SYNC POSITION; (102) In this the left 
border is sychronized. All 8-bit values smaller than REG 0 
are possible. If the register value is reduced, the left border 
moves right; if the contents are increased, the left border 
moves left. 


SYNC WIDTH; (73) Bits 0-3 determine the horizontal sync 
pulse width in characters. The value zero cannot be 
programmed. Bits 4-7 determine the vertical sync pulse 
width multiples of a raster period. If zero is programmed, it 
means 16. 


VERTICAL TOTAL; (39) This register contains the number 


of total lines including the vertical beam return. This register 


should be programmed according to the technical data of the 
monitor used. | 


VERTICAL TOTAL ADJUST: (224) Bits 0-4 serve as a fine 
adjustment for REG 4. Bits 5-7 are always set. The default 
value 224 means that bits 0-4 are cleared. 


VERTICAL DISPLAYED; (25) Contains the number of 


representable characters. Any value smaller than REG 4 is 
possible. 
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REG 7 


REG 8 


REG 9 

REG 10 
REG 11 
REG 12 


REG 13 


REG 14 


REG 15 


VERTICAL SYNC POSITION; (32) This register defines 
the upper border of the screen. If the contents of this register 
are increased, the screen moves up. Correspondingly, the 
screen moves down when the value is decreased. 


INTERLACE MODE; (252) Bits 0-1 determine the interlace 
mode. Normally these bits are cleared. 00 and 10= 
non-interlace mode, 01=interlace-sync mode (the screen 
appears to flicker), 11=interlace-sync and video mode. Try 
this once! 


CHARACTER TOTAL VERTICAL; (231) Bits 0-4 
determine the number of raster lines per character (vertical) 
minus one. Bits 5-7 are always set. The default value 231 
stands for 7, or 7+1=8 raster lines per character. 


CURSOR MODE/START RASTER; (160) Bits 5-6 set the 
cursor mode: 00=non-blinking, 0l=cursor not displayed, 
10=blink fast, 11=normal blink. 


CURSOR END SCAN LINE; (231) Only bits 0-4 are 
relevant; the others are always set. This register contains the 
line at which the cursor will stop. For a block cursor for 
example, the cursor starts at line 0 and stops at line 7. For an 
underline cursor: start and end at 7. 


DISPLAY START ADDRESS HI; (0) The high byte of the 
start of the video RAM is stored in this register. Normally the 
video RAM lies at address $0000 in the special VDC 
memory. 


DISPLAY START ADDRESS LO; (0) The low-bye of the 
video RAM corresponding to REG 12 1s defined here. 


CURSOR POSITION HI; The high byte of the cursor is 
defined in this register. The cursor address must be specified 
because the VDC will let it blink on its own. 


CURSOR POSITION LO; The low byte of the cursor 
address corresponding to REG 14 is defined here. 
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REG 16 


REG 17 


REG 18 


REG 19 


REG 20 


REG 21 


REG 22 


REG 23 


REG 24 


LIGHT PEN VERTICAL; This and the following register 
can only be read. The two high-order bytes in register 16 are 
always zero. This register returns the vertical address of the 
light pen. The value must be corrected by the software 
because the raster beam will have moved by the time the 
raster line is determined. 


LIGHT PEN HORIZONTAL; Corresponding to register 16, 
this register contains the horizontal address of the light pen. 


UPDATE ADDRESS HI; The high byte of the address to be 
manipulated is given in this register. It doesn't make any 
difference if the address is in video RAM, attribute RAM, or 
somewhere else. 


UPDATE ADDRESS LO; The low byte of the address to be 
manipulated is given here in connection with register 18. 


ATTRIBUTE ADDRESS HI; (4) The high-order byte of the 
start address of the attribute memory is placed in this register. 
The attribute RAM defines the color and status of each 
character on the screen. 


ATTRIBUTE ADDRESS LO; (0) In connection with register 
20, this register sets the low-order byte of the start address. 
In the normal mode the attribute RAM starts at address 
$0400. 


CHARACTER TOTAL & DISPLAYED; (120) Bits 4-7 
determine the total number of displayed horizontal lines (7). 
Bits 0-3 set the displayed number of lines (8). This defines 
the width of a character. 


CHARACTER DSP(V); (232) Number of vertical lines 
displayed (8); this defines the height of a character. 


VERTICAL SMOOTH SCROLL; (32) 

Bit 7: COPY bit; when this bit is set, the range at the 
block-start address is copied to the update address when the 
word count register is written. If this bit is cleared, the 
update address is filled with the data register (REG 31) 

Bit 6: RVS bit; If this bit is set, the entire screen display is 
reversed. A set point is cleared and a cleared point is set. 
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REG 25 


REG 26 


REG 27 


REG 28 


Bit 5: CBRATE; meaning is not yet known. 
Bits 0-4: Here the vertical edge of the screen can be moved 
(smooth scrolling). 


HORIZONTAL SMOOTH SCROLLING; (64) 
Bit 7: TEXT; if this bit is cleared, the text mode is enabled. 
The information for the characters is taken from the 
CHARROM. If this bit is set, single-point graphics are 
enabled. 

Bit 6: ATR; This bit indicates whether the color information 
for a character should come from the attribute RAM (set bit) 
or if all points should appear in monochrome (color is in 
REG 26). 

Bit 5: SEMI; semi-graphic operating mode; 

1: the existing horizontal space between two characters is 
filled with the color of the character last displayed. 

QO: like (1), but the space is filled with the background color. 
Bit 4 DBL; If this bit is set, the characters appear in double 
width. 

0: Pixel size=1 dot clock 

1: Pixel size=2 dot clocks 

bits 0-3: Here the horizontal edge can be moved in raster 
lines (smooth scrolling). 


FORGND/BACKGND; (240) 

Bits 0-3 determines the background color. 

Bits 4-7 determine the foreground color for graphic or 
monchrome mode. 


ADDRESS INCREMENT ROW; (0) 

This register defines the number of bytes are to be added to 
the video RAM for each column. Normally this is zero. If 
you redefine the character width, for instance, (and thereby 
the the number of characters/line), this value must be 
reprogrammed. i 


CHARACTER BASE ADDRESS; (47) 

Bits 5-7 determine the base of the character generator, 
address bits 13 to 15; the character generator can only be 
moved in 8K steps. 

Bit 4: RAM; This bit defines the RAM type: 

1: 4164; 0: 4416 
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REG 29 


REG 30 


REG 31 


REG 32 


REG 33 


REG 34 


REG 35 


REG 36 


UNDERLINE SCAN LINE; (231) 

Bits 0-4 indicate the line in which to underline. The default 
value is 8. This register can be used to change underlining to 
overlining. 


WORD COUNT; 

In this register you write the number of characters which are 
to be written to the update address, or if the COPY bit is set, 
the number of bytes to be copied. 


DATA; 

This register contains the data to be written to a memory 
location. If a memory location is read, the contents will 
appear in this register. 


BLOCK START ADDRESS HI; 
This register (and the following) defines the start address of 
the block to be copied. 


BLOCK START ADDRESS LO; 
Corresponding to register 32, this register defines the 
low-order byte. 


DISPLAY ENABLE BEGIN; (125) 
Number of characters from the start of the displayed line to 
the postive edge on the display enable pin. 


DISPLAY ENABLE END; (64) 
Like REG 34, but until the negative edge. 


DRAM REFRESH RATE; (245) 


Bits 0-3 specify the rate at which the VDC memory must be 
refreshed (refresh cycles per screen line). 
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To look at each register individually is not very informative. At best, 
you can recognize what the individual registers do when you simply write 
values to them and see what happens. Not all of the registers are useful to 
the programmer, as is the case with the VIC or SID chip. The VDC contains 
a number of registers that are present simply for screen display and 
synchronization. You should never change these registers. 


The base address of the 80-column video controller is $D600. A little 
tip: At least in our prototype, the VDC could also be manipulated in the 64 
mode; this means that 80-column mode is possible in the 64 mode as well! 
In addition to the ability to program in the 2MHz mode, this presents 
another small gap in the compatibility of the 64 mode. 


You cannot address the various registers of the VDC as simply as with 
the VIC or SID. Using the VIC or SID, you simply add the register number 
to the base address. In the VDC, register manipulation is relative, meaning 
that you have to tell the controller which register you want to read or write 
and then perform this operation. This is certainly a complicated method, but 
you get used to it quickly. If, for example, you want to change a byte in the 
video RAM, you must address this memory location relatively via the 
registers, since they are not directly addressable. 


Now we'll describe the technique. The VDC can be accessed at address 
$D600 and $D601. 


If you want to read a register, for instance, you must write the register 
address in $D600. The VDC then returns the current contents of the register 
in address $D601. 


If you want to write to a register, write the register number in address 
$D600 and the new register value in address $D601. 


Address $D600 


(Write) --- --- R5 R4 R3 R2 RI RO 
(Read) Status LPVBLANK ---- ---- ---- ---- 0 ---- 
Address $D601 


(Read/write) D7 D6 DS D4 D3 D2 Di _ ODO 
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If you write to address $D600, the register is selected. Bits 0 to 5 are 
used for this. You can also read from $D600; this will return a status report 
of the VDC. Bit 7, the status bit, indicates if the VDC is finished with its 
last action or not. If this bit is set, the video controller is not yet done, and 
you must wait until it gives the green light or data will disappear. It is 
necessary to test this bit only in machine language since BASIC is far too 
slow for this to be a problem. If, for example, we want to write to the 
DATA regiser in the VDC in machine language, it would look like this: 


LDA #$1F ;DATA REGISTER 
STA SD600 ;SELECT 
WAIT BIT $D600 ;TEST STATUS BIT 
BMI WAIT ;NOT SET, THEN NOT DONE 
LDA #$21 ;ASCII CODE FOR "!"™ 
STA SD601 ;AND WRITE 
RTS ; RETURN 


In this routine, we have placed the value $1F into the VDC select 
register. We loop at WAIT until the VDC tells us that it has accepted our 
value. Then we can write into the register at $D601. Another delay routine 
should be included after writing to address $D601, though this depends on 
the program. 


Bit 6 of address $D600 is reserved for the light pen and does not 
interest us at the moment. Bit 5 tells us if the cathode beam is on its return 
course (bit is set) or not. This can be used for synchronizing various 
activities to the beam. The rest of the bits are not used. 


To summarize, writing to address $D600 selects the VDC register. 
Writing to address $D601 transfers the data. 


You can use the following machine language code to read the value of 
the DATA register: 


LDA #S1F ;DATA REGISTER 

STA S$D600 ;ADDRESS REGISTER 
WAIT BIT $D600 ;STATUS BIT STILL SET? 

BPL WAIT ;NOT DONE 7 

LDA $D601 ;GET CURRENT CONTENTS 


We can also manipulate the VDC from BASIC. But because of 


BASIC's slowness, there may be some problems, so you shouldn't be 
annoyed if things don't work right away. 
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Read and writing the DATA register in BASIC would look like this: 


10 A=DEC ("D600"): D=A+1: REM BASE ADDRESS VDC 
20 POKE A,31: PRINT PEEK(D): REM GET REG CONTENTS 
30 POKE A,31: POKE D,33: WRITE TO REGISTER 


But now you may want to know how to work with screen addresses. 
We know that the video RAM starts at address $0000 and consists of 2000 
characters. To manipulate an address in RAM, you must first define 
whether you want to read or write in the update register. 


Let's show you with a short BASIC program: 


10 A=DEC ("D600"): D=A+1 

20 POKE A,18: POKE D,0: REM UPDATE ADDRESS HI BYTE 
30 POKE A,19: POKE D,0: REM UPDATE ADDRESS LO BYTE 
40 POKE A,31: POKE D,1: REM A 1 FOR "A" 

50 POKE A,30: POKE D,1: REM SET CHAR COUNTER 


It demonstrates several key points. The order in which you POKE is 
important. First the update address is selected. Next the character to 
be displayed is sent. Finally the number of times the character is to be 
displayed is sent. If you haven't sent the update address, you won't get 
your desired results. 


Unfortunately this routine probably won't work! Not in the FAST 
mode nor the SLOW mode. You can see this more clearly by adding the 
following lines to the program: 


5 PRINT CHRS$(19);" "™: REM TWO SPACES 
60 GETKEY AS: RUN 


Each time you press a key, the first two positions on the screen are 
erased. After this, the video controller is "requested" to display an "A" in 
the first screen position. So we can check to see if an"A" is really displayed 
at the correct position. 


When we start the program, we see that the result does not correspond 
to our expectations. The A moves from left to right. It is not always placed 


at the right location. Sometimes an "@" even appears on the screen instead 
of the A. 
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Unfortunately we can't achieve any better results here. In BASIC, it 
appears to be impossible. We have tried various methods, all without 
success. BASIC is simply too slow. What we can't accomplish in BASIC, 
we should at least be able to do in machine language. So let's look at a short 
machine language program which does the same thing as our BASIC 
program. 


Below is the assembly language listing of this routine, which is 
designed to display an "A" on the screen. Press the reset button on your 
computer to make sure all the VDC registers are reset before entering this 
program. 


OODOO 8E 00 D6 STX $D600 
OOD03 2C 00 D6 BIT $D600 


OOD06 10 FB BPL $0D03 
OOD08 8D 01 D6 STA SD601 
OODOB 60 | RTS 

OODOC A2 12 LDX #$12 
OODOE A9 00 LDA #S00 
0O0D10 20 00 24 JSR $SODOO 
00D13 E8 INX 

00D14 20 00 24 JSR $ODOO 
O0OD17 A2 1F LDX #S1F 
00D19 AQ 01 LDA #S$01 
OOD1B 20 00 24 JSR $ODO00 
OOD1E CA DEX 


OODIF 4c 00 24 + JMP $0D00° 


This little machine language routine can be entered with the built-in 
monitor and tested with the following BASIC program: 


10 PRINT CHRS (147) ; 
20 SYS DEC("ODOC"): GETKEYS: RUN 


Start the program with RUN. The result will probably surprise you. 
The position is right, but now we have two "A's" instead of one. The VDC 
displays word count+1 many characters, though it does this very carefully 
and at the correct address. If we had wanted to display two "A's", we 
would be all set, but we wanted just one. Loading the word count register 
with zero causes 256 characters to be printed. 


The solution is quite simple: If you want to display just one character, 
do not write to the word count register after selecting the update address and 
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the DATA register. Just load the update address with a new value or read 
from this register--then it works. 


To try this out we need to change our machine language program at 
address $OOD1E: 


OOD1E A2 12 LDX #$12 
OOD20 4C 00 24 JMP SODOO 


You see that it doesn't matter what value you write to the update 
register. The sample program is located in the output buffer for the RS-232 
($0D00-$0DFF). Now we'll change the machine language routine so we 
can write any character to any position, even in BASIC. 


10 REM ======S==SS=SSSSSSSSSSSS=SSSSSSSSS=SSSS=== 
20 REM BASIC LOADER FOR 80-COLUMN POKE ROUTINE 
30 REM =====S=====SS=SSSSSSSSSSSSSSSSSS=SS5=55== 
40 : 

50 FOR I=0 TO 36 

60 : READ X 

70 : POKE DEC("DO00")+1,X 


80 : S=S+X 

90 NEXT 

100 IF S<>2850 THEN PRINT "*** ERROR IN DATA **x*"; 
END 

110 : 

120 DATA 142,0,214,44,0,214,16,251,141,1,214, 96, 
162,18,169,0 

130 DATA 32,0,13,232,169,0,32,0,13,162,31,169,1, 
32,0,13 

140 DATA 162,18,76,0,13 

150 : 

160 REM *** TRY IT OUT *** 

170 : 


180 PRINT CHRS (147); 
190 SYS DEC("DOC"): GETKEY AS: GOTO 180 


Now we have the program we wanted, even if it can't be done in "pure" 
BASIC. Maybe there is some algorithm which works in BASIC and permits 
manipulations to be made on the 80-column screen. 


As already mentioned, this routine can display any character at any 
location on the screen. To make it do this, you have to write the high byte of 


104 


Abacus Software C-128 Internals 


ce a nee 


the address to address $ODOF, the low byte to address $0D15, and the 
character to address $O0D1C. Try it once with the following sample program: 


50 LO=DEC("D15"): HI=DEC("DOF") : PO=DEC("D1C") 
60 FOR I=0 TO 1999 

70 : POKE LO, I AND 255 : REM POKE LOW BYTE 
80 : POKE HI, I/256 =: REM POKE HIGH BYTE 
90 : POKE PO, I AND 255 : REM FOR EXAMPLE 
100 : SYS DEC("DOC") 
110 NEXT 

120 GETKEY AS 


But we don't want to display just one character. Sometimes it would be 
practical if we could display 80 characters at once (with the help of the word 
count register), for example, to erase a line or something similar. But the 
VDC might display one character too many. Imagine a word processing 
program that had this problem: it would be quite aggravating. 


This error must have been compensated for in the operating system, 
though. The solution is (what, again?) rather simple and works very well. 


You know the starting address of the area to be filled with characters. 
Let's say that you want to display n characters. So you can calculate the 
address in video RAM where they will be written. Simply let the video 
controller fill n—1 characters. 


Next we can read the update address (which the VDC 
automatically increments) to determine if it has displayed the correct number 
of characters. If so then we are done. Otherwise we must display one more 
character. This method is always faster than writing each character by itself. 
You can use an operating system routine that outputs a character based on 
the update address and DATA register as many times as the value in the 
accumulator specifies. This routine is found at the address $C53E. Place 
the calculated address in $0A3C/$O0A3D. We'll add the routine to the one 
already existing: 
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O0OD25 A2 12 LDX #$12 

OO0D27 A9 OO LDA #S00 

OOD29 20 00 OD JSR SODOO 

QOOD2C 8D 3D OA STA SOA3D 

OOD2F E8 INX 

O0OD30 AY OO LDA #S00 

QO0OD32 20 00 OD JSR SODOO 

O00OD35 8D 3C OA STA SOA3C 


0O0D38 AY OO LDA #S00 
OOD3A A2 1F LDX #S1F 
OOD3C 20 00 OD JSR SODOO 
OOD3F AY 00 LDA #S$00 
OOD41 18 CLC 
O0D42 48 PHA 


00D43 6D 3C OA ADC $O0A3C 
00D46 8D 3C OA STA $O0A3C 


O00D49 90 03 BCC SOD4E 
OOD4B BEE 3D OA INC SOA3D 
OOD4E 68 PLA 


OOD4F 4C 3E C5 JMP SC53EA 
You can add the following DATA lines to the BASIC loader: 


150 DATA 162,18,169,0,32,0,13,141, 61,10,232,169,0, 
32,0,13 

160 DATA 141,60,10,169,0,162,31,32,0,13,169,0,24, 
72,109, 60 

170 DATA 10,144,3,238,61,10,104,76, 62,197 


Lines 50 and 100 must also be changed: 


50 FOR I=0 TO 81 
100 IF S<>5859 THEN PRINT "*** ERROR IN DATA ***"; 
END 


Store the high byte of the starting address at address $0D28, the low 
byte at address $0D31. You must POKE the fill character into address 
$0D39 and the number at address $0D40. Example: 


POKE DEC("0D28"),0 : POKE DEC("0D31"),0: REM ADDR 
POKE DEC ("0D39"),33: REM FILL CHARACTER 

POKE DEC("0D40"),79: REM FILL QUANTITY-1 

SYS DEC ("0D25") >: REM CALL THE ROUTINE 
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Once you enter these lines, the first line will be filled with exclamation 
points. 


As already mentioned, you can change the attribute RAM in the same 
way as we changed the screen contents. For example, if you want to display 
the first line in flashing white, you must fill the attribute RAM with 
$1F=31. To do this we enter the following lines: 


POKE DEC("0D28"),8 : POKE DEC("0D31"),0: 
REM ATTRIBUTE RAM 
POKE DEC ("0D39"),31: REM FILL CHARACTER 
POKE DEC("0D40"),80: REM FILL QUANTITY 
SYS DEC ("0D25") : REM CALL THE ROUTINE 


5.4.1 The character set 


The character set in the VDC can be easily changed. Sixteen bytes of 
RAM must be defined per character. Eight bytes are copied from the 
CHARROM, and eight additional zero-bytes are appended for reasons 
internal to the VDC. The character set starts at address $2000 for the VDC. 
To read a character out or to change it, you can find it with this address: 


2*4096 + <code>*16 


The VDC, unlike the VIC, can display the two character sets, obtained 
with <SHIFT><Commodore> in 40 column mode, on the screen at the 
same time since these are both found in the VDC RAM. The reverse 
characters are also defined, though these aren't really necessary since a bit 
in the attribute RAM controls whether a character is displayed normal or in 


reverse. Both of these features can be utilized if you want define additional 
characters. 


The memory layout of the VDC RAM looks like this: 
S0000-SO7CF: Video RAM 


SO800-SOFCF: Attribute RAM 
$2000-S3FFF: CHARRAM(character generator) 
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5.4.2 The character attribute 


The attribute of a character is composed of several criteria: The first is 
the RGB signal, whether red, green, or blue are active (all bits here are set 
for white, for instance), then the intensity signal (which determines the two 
levels of brightness of the character ). Then there is a bit which determines 
if a character should flash on and off, a bit to underline a character, a bit for 
reverse, and a bit for the alternate character set. You can see that the reverse 
characters really need not be defined at all, since a corresponding bit is 
provided in the attribute RAM. But to make things simpler, the reverse 
character set was simply copied along with the rest of the characters. 


But now we come back to the actual attribute RAM: The eight bits of an 
attribute byte are arranged as follows: 


ALT RVS UL FLASH R G B I 
7 6 5 4 3 2 1 0 


ALT stands for ALTernate. If the second character set is selected (the 
one obtained with <SHIFT><Commodore> on the keyboard), the ALT bit 
in the attribute RAM is set. 


RVS stands for ReVerSe and means that the character will be displayed 
in reverse. Unfortunately, no direct use is made of this bit. Professional 
software programmers can make better use of the reverse characters. 


UL stands for UnderLine. If this bit is set, the corresponding character 
is underlined in the raster line defined in register 29; normally this is line 7. 


FLASH is self-explanatory. If this bit is set, the character defined by 
the given attribute byte will flash on and off. Color and any underlining 1s 
retained. 


R stands for Red, G for Green, and B for Blue. The color signal 
consists of the set and cleared bits. There is also an intensity signal I that is 
used to set the brightness; a set bit means bright. 
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Here is a table of the 15 possible color and intensity combinations: 


ye) 
rH 
KB 


Black 

Dark grey 
Blue 

Light blue 
Green 
“Light green 
Cyan 

Light Cyan 
Red 

Light red 
Purple 
Light Purple 
Brown 
Yellow 
Light grey 
White 


PRPRPRPRPRPRPRPOODOCO0O0O 
PRPrFRPOOOORPRPRPRrROOOO 
PRPOOPRPOORPRPOOFRRFROO 
FPOrRPOFPFODOORPOROROFO 


5.5 Using the VDC Registers 


As already mentioned, the 37 VDC registers account for a very flexible 
80-column controller. We want to take a closer look at and demonstrate their 
use with some examples. One of the more useful is the ability to display 30 
lines on the screen instead of 25 a second is the ability to use the 
high-resolution graphics with a resolution of 640x200 points. We will 
concentrate on these two examples. 


But first we present a program which is very useful for exploring the 
world of the VDC registers. When testing, you may often find that your 
screen displays nothing but garbage. This means you have confused the 
controller so much that it can no longer display a meaningful picture. ‘The 
best thing to do is to press the <RUN/STOP><RESTORE> keys. 


On international models of the C-128 that include a foreign character 
set, the character generator may be overwritten. The best thing to do then is 
to press the <ASCII/DIN> key to copy the character generator back to the 
normal mode. 
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This program shows you the current register contents on the screen and 
then lets you write to any of the registers. After you have entered the values, 
you can observe the results directly on the screen (if in fact there are 
results). The current register contents are then displayed again. 


10 REM *** TESTING THE VDC REGISTERS *** 


30 A=DEC ("D600"): D=A+tl1 

40 PRINT CHR$ (147) "CURRENT REGISTER CONTENTS -" 
50 FOR I=0 TO 37 

60  POKE A,I: C=PEEK(D) 

70 PRINT "#";I;RIGHTS (HEXS$(C),2), 


80 NEXT I 
90 PRINT: PRINT 
100 INPUT "REGISTER, VALUE --- ";RE,VA 


110 POKE A,RE: POKE D,VA: GOTO 40 
5.5.1 Smooth scrolling 


As with the VIC chip, you can move the screen vertically or 
horizontally in raster line increments on the VDC. VDC register 24 (bits 
0-4) and 25 (bits 0-3) are used for this purpose. Contrary to the way 
smooth scrolling is done on the VIC, you don't lose any columns or lines 
on the VDC. The VDC is not well-suited for games--it has very good 
resolution, but its complicated addressing is far too slow--but you can use 
smooth scrolling to create many useful effects. Here is a short 
demonstration program which shows the operation of smooth scrolling on 
the 80-column screen. 


10 REM *** DEMO PROGRAM FOR SMOOTH SCROLLING *** 

20 A=DEC ("D600") : D=DEC ("D601") 

30 VE=24: HO=25 

40 PRINT CHRS (147) CHRS (27);"M"; : REM SCREEN CLR 
AND SCROLL OFF 

50 AS="Hello C-128 fans!" 

60 FOR I=0 TO 24 

70 PRINT AS 

80 NEXT 


100 FOR I0=0 TO 6 
110 POKE A,VE: V=PEEK(D) AND 240 OR I0 
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120  POKE A,VE: POKE D,V 

130 FOR I1=1 TO 20: NEXT 

140 POKE A,HO: H=PEEK(D) AND 240 OR I0 
150  POKE A,HO: POKE D,H 

160 FOR I1=1 TO 20: NEXT 

170 NEXT 

180 GOTO 100 


If this goes too fast for you or not fast enough, change the delay loops 
in lines 130 and 160 correspondingly. 


If bit 3 is cleared, 25 lines are displayed and the following (or 
preceding) RAM is scrolled on the screen. If you set bit 3, only 22 lines are 
displayed and you can scroll the last three lines of the screen by means of 
smooth scrolling. 


5.5.2 Block copying 


If the controller is so hard to access, why is screen scrolling so fast? 
The solution is simple: The VDC is intelligent enough to move entire blocks 
in its memory. If this had to be done via the relative addressing, 1t would 
take a considerably longer time. 


If you want the VDC to move an area of memory, you must tell it this 
via the COPY bit (bit 7 in REG 24). If this bit is set, the VDC copies instead 
of filling. The starting address of the block to be copied is defined in 
registers 32 and 33; the destination address of the copying procedure must 
be defined in the update register (REG 18 and 19); the copy process begins 
when you write to the word count register. This also specifies the number 
of characters to be copied. 


NOTE: The word count register specifies the exact number of characters 
to be copied. For example, if you want to copy the first text line on the 
screen to the line below and preserve the attributes, you must first copy the 
text line and then the attributes. We will do an upward-scroll in our example 


— BASIC it goes quite slowly, but in machine language it is fast 
enough. 
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10 REM *** DEMO PROGRAM FOR BLOCK COPYING *** 

20 A=DEC ("D600"): D=DEC ("D601") 

30 POKE A,24: C=PEEK(D):REM *** CONTENTS OF REG 24 

40 POKE A,24: POKE D,C OR 128:REM *** SET COPY BIT 

50 FOR Z=24 TO O STEP -1 

60 AQ=Z*80: AZ=AQ+80: REM *** SOURCE AND DEST 

70 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D, 
AZ AND 255 

80 POKE A,32: POKE D,AQ/256: POKE A,33: POKE D, 
AQ AND 255 | 

90 POKE A,30: POKE D,79: REM *** COPY TEXT 

100 AQ=2048+AQ: AZ=2048+AZ:REM *** ATTRIBUTE ADDR 

110 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D, 
AZ AND 255 

120 POKE A,32: POKE D,AQ/256: POKE A,33: POKE D, 
AQ AND 255 

130 POKE A,30: POKE D,79: REM *** COPY ATTRIBUTE 

140 NEXT 

150 PRINT CHRS$ (19) ;CHR$S(27)"D"; :REM CLEAR 1ST LINE 

160 POKE A,24: POKE D,C: REM *** CLEAR COPY BIT 


This routine does nothing more than the ESC sequence 
CHR§$(27);"W", but it shows the operation of block copying. 


5.5.3 Foreground and background color 


You can define the background color of the 80-column screen in 
register 26 (bits 0-3). The foreground color has effect in the graphic mode 
and--provided the ATR bit in register 25 is not set--also in the text mode. 
The definition of the register: 


POKE DEC("D600") ,26 
POKE DEC("D601") ,<foreground>*16 + <background> 
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5.5.4 The cursor mode 


You can also determine the appearance of the cursor yourself. You can 
turn it off completely, make it blink fast or slow, and define it as a block or 
underline cursor. You can make these definitions using ESC sequences, but 
there are situations where this is not possible--such as in machine language. 
The cursor mode is set in register 10. Further, register 10 indicates in which 
raster line the block cursor is to begin. With the starting and ending line of 
the block cursor you can turn the cursor into a broad stripe in the middle, 
etc. (The underline cursor is defined in the same manner). Here are the four 
possible bit combinations of the cursor mode: 


OO - non-blinking cursor 

01 - cursor off 

10 - slow cursor (cursor flashes at 1/16 SRF) 
11 - fast cursor (cursor flashes at 1/32 SRF) 


SRF = Screen Refresh Frequency 


As already mentioned, the VDC takes over all functions of displaying 
the character under the cursor and does not burden the CPU with it. 


For a block cursor, the start line is line 0; the end line, defined in 
register 11, is line 7. In order to define a underline cursor, one need only 
change the start line to 7. 


To demonstrate the effects, simply try out the following: 


10 REM *** DEMO FOR CURSOR *** 

20 A=DEC ("D600"): D=DEC ("D601") 

30 FOR X = 1 to 7: REM LINE 1 TO 7 

40 :POKE A,10: POKE D,X: REM *** NON-BLINKING-START 
50 POKE A,11: POKE D,7: REM END LINE=7 

60 FOR I = 1 TO 100 : NEXT I 

70 NEXT X 


The cursor address is defined in registers 14 and 15; the cursor is then 


displayed at this location where it blinks if so instructed and negates the 
character found underneath it. These two registers have no other function. 
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5.5.5 The character length and width 


The matrix of the characters found in VDC RAM is 8x8 points; this 
means that the characters displayed on the screen are 8 points wide and 8 
lines tall. This can be changed. The height and width of the characters can 
be set in registers 22 and 23. The following BASIC program demonstrates 
this: 


10 REM *** DEMO PROGRAM FOR CHARACTER MATRIX *** 


30 A=DEC ("D600"): D=At+1 

40 FOR I0=0 TO 8: POKE A,22: POKE D,112+I0 
50 FOR I1=0 TO 8: POKE A,23: POKE D,I1 

60 FOR I2=1 TO 30: NEXT I2,I1 

70 FOR I2=1 TO 30: NEXT I2 

80 NEXT IO 

90 GOTO 40 


You must always add 112 to register 22 because the upper nibble must 
always be $7. 


5.5.6 More than 25 lines on the screen 


Yes, you read it right! It is possible to display 25 lines with a total of 
2000 characters on the screen, but you can even display 28 lines with 2240 
characters and more. This is no trick of the imagination; every programmer 
who wants to write a word processor or database for the C-128, for 
example, will be pleased at this capability. 


The technique we will present can manage 25 lines in BASIC. This 
means that the other 3 lines remain when scrolling and clearing the screen 
and are therefore well-suited for status lines. These three lines (including 
attribute) can be changed with an appropriate machine language program. 
But first to the theory: 


In register 6 of the video controller, you can specify how many lines are 
to appear on the screen. The default value here is 25. Let's change this value 
to 10: | 


114 


Abacus Software C-128 Internals 


SSS SSS SSS SSS Sse Scenes 


10 A=DEC ("D600"): D=A+1 
20 POKE A,6: POKE D,10 


You see that the controller now displays only 10 lines on the screen and 
the remaining lines are simply "swallowed up." Just as we can make the 
screen smaller, we also have the ability to increase the number of lines. We 
do this by simply correcting line 20: 


20 POKE A,6: POKE D,28 


And now we have 28 lines on the screen. You also see some lines that 
will usually flash in various colors. We can now (provided the monitor is 
good enough) see all 28 lines on the screen--even if the last three lines don't 
contain any useful information. 


A small note: On a very well-adjusted IBM color monitor we have been 
able to display up to 30 lines. It wouldn't make any sense to use this 
though, since most monitors would not be able to display it. We have been 
able to display 2 or 3 additional lines on every monitor. So we can say in 
general that at least two additional lines are possible, which you can then 
use for status lines, etc. | 


We already know that the video RAM lies at address $0000 and the 
attribute RAM at address $0800. We must change this since we have 
displayed 2240 characters; the end of the video RAM then lies at address 
$0960 and part of the attribute RAM is overwritten (and vice versa). There 
is enough space between the attribute RAM and the character generator. 
Address $0A00 is then available for the start address of the attribute RAM. 


But when we want to write to the 80-column screen with BASIC, we 
have a small problem: The interpreter gets the base address of the attribute 
RAM from address $0A2F in the zero page. This isn't so bad--we just 
inform the BASIC interpreter of the new base address. This is correct--but 
if we take a closer look at the kernal, we see that the base address is not 
added but logically ORed. Bits 0 and 1 are affected by this; these two bits 
may not be relevant; that is, they may not be set. This is why it is advisable 
to define address $1000 as the start address of the video RAM. We do this 
with the two instructions: | 


POKE DEC("OA2F") ,16 
POKE DEC("D600") ,20: POKE DEC("D601") ,16 
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When this is done, everything works as it should. We'll use these ideas 
in our next program: 


10 REM *** DEMO PROGRAM FOR 28-LINE SCREEN ** 

20 : 

30 A=DEC ("D600"): D=DEC ("D601") 

40 POKE A,20: POKE D,16:REM *** VDC RECEIVES NEW 
BASE ADDRESS 

50 POKE DEC("OA2F"),16: REM *** KERNAL RECEIVES NEW 
BASE ADDRESS 

60 POKE A,6: POKE D,28: REM *** 28 LINES 

80 PRINT CHRS (147) 


When you start this program, 28 lines appear on the screen--though the 
last three lines still have no meaningful content. Unfortunately, we cannot 
write to these lines with the PRINT statement. The operating system is not 
prepared for such things. It becomes clear that we must POKE characters 
(strings) into memory. This is done by a small machine language routine so 
that the characters to be printed can be put into a string. 


This machine language routine is passed the address of the string to be 
printed. The address of a variable can be obtained with the POINTER(var) 
command. Before this, the low and high bytes of the screen address at 
which the string is to be printed are stored in memory locations $FA (250) 
and $FB (251). The current attribute is used as the color or attribute which 
you may change. You cannot integrate any control characters in the strings. 
These are accepted, but result in a gap in the screen. It is possible to allow 
for execution of control sequences, but we have not included this feature for 
space reasons. The routine is intended to output strings in our new window 
without requiring a lot of effort on the part of the programmer. The 
following commands are necessary in order to display a string on the first 
line of our new window: 


TS="This is a test string!" 
POKE 250, (2000 AND 255) 

POKE 251, (2000/256) 

A=POINTER (TS) 

SYS DEC("D27"),A AND 255,A/256 


First the string variable is defined which contains the string to be 
printed. Then we POKE the start address in $FA and $FB, low byte first. 
We then indicate the address at which the string T$ is stored in bank 1. This 
address is then, divided into low and high bytes, passed to the output 
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routine at address $0D27. The routine then gets each character and outputs 
it. That's it. Here is the machine language program: 


OODO0O 
QOD03 
OODO06 
OODO08 
OODOB 
OODOC 
OODOE 
00D10 
00D13 
00D14 
00D16 
00D19 
OOD1B 
OOD1D 
00D20 
O0D22 
00D24 
00D27 
QOOD29 
OOD2B 
OOD2D 
OOD2F 
O00D31 
00D34 
O00D36 
00D38 
OOD3A 
OOD3C 
OOD3F 
00D40 
00D41 
00D43 
O0D45 
00D48 
OOD4A 
OOD4B 
OOD4D 
OOD4F 
O00D51 
00D53 


D6 
D6 


D6 


OD 


OD 


OD 


OD 


FF 


FF 


FF 


STX 
BIT 
BPL 
STA 
RTS 
LDX 
LDA 


SD600 
SD600 
$OD03 
$D601 


#$12 
#300 
SODO00 


#$00 
SODO00 
#S1F 
#$00 
SOD00 
#512. 
#$00 
SODO00 
SFC 
SFD 
#500 
#$01 
#SEC 
SFF74 
SFE 
#$01 
#$01 


#SFC 


SFF74 


#$01 
#SFC 
SFF74 
SFD 


SFC 
SFC 
$0D53 
SFD 
SFC 


;ACC. OF THE REGISTER 
;TEST STATUS 

;NO YET READY 

;STORE THE VALUES 

;END THE ROUTINE 
;UPDATE REGISTER HI 
;LOAD THE HI VALUE 

;SET THE HI ADDRESS 
;UPDATE ADDRESS LO 
;LOAD THE LO-BYTE 

;AND THE ACCUMULATOR 
;DATA REGISTER OF VDC 
;LOAD THE POKE VALUE 
;SET THE VALUES 

;DUMMY VALUE 

;UPDATE ADDRESS 

;SET THE VALUES 

;MARK LO-BYTE OF STRING 
;MARK HI-BYTE OF STRING. 
;OFFSET - STRING LENGTH 
;BANK 1 FOR VARIABLES 
;SFC WITH THE ADDRESS 
;AND FAR FETCH 

;MARK LENGTH 

;OFFSET LOW-BYTE ADDRESS 
;BANK 1 FOR VARIABLES 
;SFC WITH THE ADDRESS 
;FAR FETCH : 
;LO-BYTE OF STACK 
;POINTER OF HI-BYTE 

; ADDRESS 

;FOR VARIABLE 

;FAR FETCH 

;MARK THE HI-BYTE 
;GET LO-BYTE 


' ;STORE THE LO-BYTE 


;GET LO-BYTE 
;WHEN NOT NULL; DECREMENT 
>THE LO-BYTE, ELSE DEC 
;ALSO THE HI-BYTE 
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OOD55 A5 FA LDA SFA ;ALSO THE SOURCE ADDRESS 
OOD57 DO 02 BNE SOD5B ;DECREMENT THE LO-BYTE 
0O0OD59 C6 FB DEC SFB ;AND DEC 

OOD5B C6 FA DEC SFA ;ALSO HI-BYTE 

OOD5D A5 FA LDA SFA ;GET LO-BYTE | 
OOD5F 85 EO STA SEO ;LO-BYTE LINE ADDRESS 
OOD61 A5 FB LDA SFB ;GET HI-BYTE 

OOD63 85 El STA SE1 ;HI-BYTE LINE ADDRESS 
OOD65 A2 O1 LDX #$01 ;BANK 1 FOR VARIABLES 
OOD67 A4 FE LDY SFE ;POSITION IN STRING 
OOD69 A9X FC LDA #SFC ;ADDRESS IN ZERO PAGE 
OOD6B 20 74 FF JSR SFF74 ;FAR FETCH 

OOD6E A4 FE LDY SFE GET POSITION IN STRING 
OOD70 84 EC STY SEC ;ALSO CURSOR COLUMN 
O00OD72 20 0C CO JSR SCOOC ;AND CHARACTER OUTPUT 
00D75 C6 FE DEC SFE ;DEC THE POINTER 

00D77 DO E4 BNE SODS5D ;IF NOT END OF STRING 
OOD79 60 RTS ;END ROUTINE 


At first glance the routine may appear rather long, but it really isn't. 
Remember that this routine and a few short BASIC lines give you three 
additional lines to use. Furthermore, there is another short routine at the 
start of this one that writes a character to a location in the VDC memory. 
The BASIC loader for this routine is found after the example program. Here 
is the example program, which allows displays 28 lines using both of the 
new routines. 


10 REM *** DEMO PROGRAM FOR 28 LINE SCREEN *** 


30 A=DEC ("D600"): D=DEC ("D601") 

40 POKE A,20: POKE D,16: REM *** VDC GETS NEW BASE 

50 POKE DEC("OA2F"),16: REM *** KERNAL GETS NEW 
BASE ADDRESS 

60 POKE A,7: POKE D,28: REM *** 28 LINES 

70 POKE A,6: POKE D,33: REM *** NEW SYNC 


90 PRINT CHRS (147); 

100 TS+" ": REM 20 SPACES 
110 FOR X=0 TO 79 STEP 20: FOR Y=0 TO 2 

120 GOSUB 1000: NEXT: NEXT 

130 INPUT "Enter your name: ";TS 

140 FOR Y=0 TO 2: X=2*Y: GOSUB 1000: NEXT 
150 END 
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1000 REM *** OUTPUT TS AT X,Y COORDINATE; Y=0 MEANS 
1ST LINE *** 

1010 AZ=2000+Y*80+X: REM DESTINATION ADDRESS 

1020 POKE 250,AZ AND 255: REM LOW BYTE 

1030 POKE 251,AZ/256: REM HIGH BYTE 

1040 T%=POINTER(TS): REM ADDRESS OF THE STRING 

1050 SYS DEC ("D27"),T%S AND 255,T%/256: REM PASS 

1060 RETURN 

1070 


This program first enables the three additional three lines (lines 30-70). 
Then the window is cleared and the name you entered is printed on each 
line. 


If you don't want to enter the machine language program with the 
assembler, you can use the following BASIC loader and then save the 
machine language program on disk as a BINary file. 


10 REM BASIC LOADER FOR PRINT STRING 


30 FOR I= DEC("DO0O") TO DEC("D79") 

40 READ AS 

50 POKE I, DEC(AS) 

60 S=S+DEC (AS) 

70 NEXT 

80 IF S<>16613 THEN PRINT"ERROR IN DATA STATEMENTS" 
90 INPUT "SAVE PROGRAM ON DISKETTE Y/N";AS 

100 IF AS<>"Y" THEN END 

110 INPUT "FILE NAME";FS 

120 BSAVE""+ FS +"",B1,P3328 TO P3449 :END 


200 DATA 8E,00,D6,2C,00,D6,10,FB, 8D, 01,D6, 60,A2,12,A9, 00 
210 DATA 20,00,0D,E8,A9,00,20,00,0D,A2,1F,A9,00,20,00,0D 
220 DATA A2,12,A9,00,4C,00, 0D, 85, FC, 86,FD,A0,00,A2,01,A9 
230 DATA FC,20,74,FF,85,FE,A0,01,A2,01,A9,FC, 20,74, FF, 48 
240 DATA C8,A2,01,A9,FC,20,74,FF,85,FD, 68, 85,FC,A5,FC,D0 
250 DATA 02,C6,FD,C6,FC,A5,FA,D0, 02,C6,FB,C6,FA,A5,FA, 85 
260 DATA E0,A5,FB,85,E1,A2,01,A4,FE,A9,FC,20,74,FF,A4,FE 
270 DATA 84,EC,20,0C,C0,C6,FE,D0,E4, 60 
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5.5.7 Hi-res graphics 


We probably got you excited when we mentioned that a graphics 
display is also possible on the 80-column screen. The resolution of these 
graphics is 640x200 points, exactly twice as great as the hi-res mode of the 
VIC chip. There is no multi-color mode. The brillance of the graphics is 
quite impressive (if the monitor can display it properly). Here you don't 
have to set two points next to each other in order to see one point, as on the 
VIC. There is "only" one color available, but this is completely sufficient 
for most graphics (such as mathematical curves). 


This graphic mode is not supported by the BASIC 7.0 graphics 
commands. We again offer you a small machine language package that can 
perform the following elementary functions: 


* turn graphic mode on and off 
* clear the graphic page 
* set and clear points 


We could have integrated more features into the machine language 
routine package, but we don't want to turn the C-128 Internals into a 
collection of programs! 


The how of the VDC graphic mode is also interesting. The bit-map 
mode is enabled by setting bit 7 of register 25. There are then 16Kbytes of 
the VDC memory available for graphics on the screen. If you clear the 
graphics, the character generator is also cleared. 


On the international models of the C-128 if you exit with 
<RUN/STOP> <RESTORE>, you must also press <ASCII/DIN> or you 
will see nothing on the screen because the character set has been erased. The 
character set can also be copied under program control when switching from 
the graphic mode to the text mode. You can also press <ASCII/DIN> while 
the graphic mode is enabled--you will be surprised. 


The graphic mode is enabled by setting bit 7. The attribute RAM 
becomes nonfunctional as it is required for graphic display, we must also 
clear the ATR bit in register 25. We can combine these two actions by 
loading register 25 with 128. This is all that is necessary to enable the 
graphic mode. We can leave the attribute and video RAM addresses alone 
since they play no role. : 
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The graphic memory is defined at address $0000. The logic for setting 
and clearing points is similar to that described for the VIC chip; here setting 
and clearing are accomplished through logical OR and AND. One byte also 
defined eight points (pixels) for the VDC. The first point, which has the 
coordinates 0/0, is located in the upper left-hand corner, and thereby at 
address $0000. The rest of the procedure is simpler than for the VIC chip. 
The graphics are defined line by line. The memory layout is clarified in the 
following figure: 


$0000 $0001 $0002 $0003 


SO27F (639 decimal) 
$0280 $0281 $0282 $0283 


SO4FF (1279 decimal) 


On the VDC the memory is not divided into matrices of eight, so that 
addressing a point is much easier. The following formula is needed to 
address a given point (X/Y): 


AD = INT(X/8) + Y*802 


The point in this byte is addressed in the same manner as with the VIC, 
by the following formula: 


24(7-(X AND 7)) 
Since this addressing is so simple, the machine language program is 


correspondingly shorter. First the assembly language listing, followed by 
the BASIC loader: 


OOCOO 4C CD OC JMP SOCCD ;SWITCH ON THE GRAPHICS 
00CO3 4C DO OC JMP SOCDO ;TURN OFF GRAPHICS 
00CO06 4C D3 OC JMP SOCD3 ;BACK TO TEXT MODE 
O0CO9 4C EO OC JMP SOCEO ;SET A POINT 

OOCOC 4C DD OC JMP SOCDD ;ERASE A POINT 
OOCOF 8E 00 D6 STX SD600 ;STORE IN REGISTER 
00C12 2C 00 D6 BIT $D600 ;TEST STATUS 

00C15 10 FB BPL $0C12 ;NOT FINISHED YET 
00C17 8D 01 D6 STA $D601 ;STORE VALUE 

OOC1A 60 RTS ;RETURN TO PROGRAM 
OOC1B 8E 00 D6 STX $D600 ;LOAD REGISTER 
OOC1E 2C 00 D6 BIT $D600 ;TEST STATUS 

00C21 10 FB BPL SOC1E ;NOT FINISHED YET 
00C23 AD 01 D6 LDA SD601 ;GET REGISTER VALUE 
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00C26 
00C27 
00C29 
OOC2B 
OOC2E 
00C30 
00C32 
00C33 
00C36 
00C38 
OOC3A 
O00C3D 
00C3F 
00C42 
00C43 
O00C45 
00C46 
00C47 
00C49 
OO0C4B 
O0C4D 
OOC4F 
00C51 
00C53 
O0C55 
00C57 
00C59 
OOCSB 
OO0C5D 
OOCSF 
O0C61l 
00C63 
O0C65 
O0C67 
O00C69 
OOC6B 
OOC6D 
OOCOF 
00C71 
00C73 
00C74 
00C76 
00C78 


60 
A2 
AQ 
20 
AO 
A2 
98 
20 
A2 
AY 
20 
A2 
20 
88 
10 
60 
08 
A5 
85 
46 
66 
46 
66 
46 
66 
AQ 
85 
A5 
06 
26 
06 
26 
65 
85 


OC 


OC 


OC 


OC 


;RETURN TO PROGRAM 
;REGISTER 25 CHOSEN 
;BIT 7 SET 

;REGISTER 25 SET 

3;$40 FOR OFF 

-REGISTER 18 UPDATE HI 
;HI BYTE TO ACCU. 

;SET UPDATE HI 
;REGISTER 31 DATA REG. 


a 

;DATA REGISTER WRITTEN 
;WORDCOUNT REGISTER 
;WITH NO FILL 
;DECREMENT THE NUMBER 
;FOLLOW BLOCK OFF 
;RETURN TO OFF ROUTINE 
;RETURN CARRY # SET/OFF 
;LO-BYTE X-COORD. 

; TEMP. STORAGE 

;HI-BYTE WITH X OVER TWO 
;COPY CARRY LOW-BYTE 
75.0. 

75.0. 

;PUT TOGETHER INT (X/8) 


v 

;HI-BYTE OF ADDRESS ON 
; NULL SET 
; Y-COORD. 
;Y TIMES 2 
; COPY CARRY 

; TIMES TWO OPTION 

;AMT * 4, PLUS 1*Y 
;OPTION Y*5 

: LO-BYTE 

;NO CARRY 

;CARRY INTO HI-BYTE 

;IS WORD WITH 4 TIMES 
;WITH 2 MULTIPLER THIS 
;OPTION ONE * 16 

;AND 16*5 FOR 80 OPTION 
;WITH 80 MULTIPLER 

; INT (X/8) 

;ADD TO Y*80 


IN ACC. 
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OOCT7TA 
OOCTC 
OOCTE 
00C80 
O00C82 
00C84 
00C87 
O0C88 
OOC8A 
OOC8D 
OOC8F 
O0C92 
00C93 
O0C95 
00C97 
00C98 
00C99 
OOC9A 
OOC9IC 
OOC9F 
OOCA1 
OOCA4 
OOCAS 
OOCA7 
OOCAY 
OOCAC 
OOCAD 
OOCAF 
OOCB2 
OOCB4 
OOCBS 
OOCB8 
OOCBA 
OOCBD 
00CC5 
OOCCD 
OOCDO 
OO0CD3 
OOCDS5 
OOCD7 
OOCDA 
OOCDD 
OOCDE 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 
20 
DF 
OC 
OC 


OC 
CE 


LDX 
PLA 
JSR 
LDX 
JMP 


10 08 04 QO2 O1; 
EF F7 FB FD FE; 


JSR 
JMP 
LDX 
LDA 
JSR 


SFC 
SOC80 
SFD 
#$12 
SFD 
SOCOF 


SEC 
SOCOF 
#S1F 
SOC1B 


SFE 
#$07 


SOCA1 


; AND STORE 

;NO CARRY 

;REM CARRY 

;REGISTER 18 UPDATE HI 
;HI-BYTE OF ADDRESS 
;SET 

;UPDATE LO 

;LO-BYTE OF ADDRESS 
;SET THE LO-BYTE 

;DATA REGISTER 

;GET THE STORED VALUE 
;STACK 

;GET X-COORD. 
;X AND 7 
;POINTER NOT X 
;GET VALUE BACK 
;GET CARRY BACK 
;SET POINT 


(LO) 


$0CC5,X;CLEAR POINT 


SOCA4 


; UNCONDITIONAL JUMP 


SOCBD,X;SET POINT 


#$12 
SFD 
SOCOF 


SFC 
SOCOF 
#S1F 


SOCOF 
#$12 
SOC1B 


$0C27 
SOC2E 
#$19 
#540 
SOCOF 


JMP SCEOC 


CLC 


BCC $O0CE1 


; STACK 

,;UPDATE HI 

;HI-BYTE OF LINE ADDRESS 
;SET THE VALUE 

;UPDATE LO 

;LO-BYTE OF ADDRESS 

;SET THE LO-BYTE 

;DATA REGISTER 

;RECOVER STACK 

;SET NEW VALUE 

; UPDATE ADDRESS HI 

;AND POINT SET 

TABLE SETTING PTS 
TABLE CLEAR POINTS 
;SET THE GRAPHIC MODE 

; TURN OFF GRAPHICS 
*;REGISTER 25 SELECT 
"ATR-BIT SET,TXT-BIT OFF 
,;SET THE TEXT MODE 

;COPY CHAR ROM 

;CLR CARRY FOR POINT OFF 
; UNCONDITIONAL JUMP 
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QOOCEO 38 SEC ;SET CARRY FOR POINT SET 
OOCE1 85 FA STA SFA ; STORE X-LOW 

OOCE3 86 FB STX SFB ;STORE X-HI 

OOCES 84 FC STY SFC ; STORE Y-COORD. 

OOCE7 4C 46 OC JMP $0C46 ;POINT SET/CLEAR 


As you see, there are five entry points available. The graphic page is 
automatically cleared when the graphic mode is enabled. If you only want to 
enable 7 graphic page, you can do this with the following BASIC 
commands: 


POKE DEC("D600"),25: POKE DEC("D601"),128 


The following subroutines are reached with the five entry point 
addresses: 


$0COO ~—_ Enable and clear graphic page 
$0C03 —_ Clear the graphics 

$0C06 _—siBack to text mode 

$0C09 Seta point 

$0COC Clear point 


The coordinates for setting or clearing a point can be passed directly 
with the SYS command. The syntax looks like this: 


SYS <ENTRY POINT>,<X LOW>,<X HIGH>,<Y> 
For example, the command 
SYS DEC("0C09"),0,185,191 


is necessary to set the point with the coordinate (185,191). The general call 
looks like this: 


SYS DEC("0C09"),X AND 255,X/256,Y 


By the way, it pays to append the % sign to the variable names 
whenever possible because then the variable is treated as an integer 
variable--leading to great increases in speed. Unfortunately, this doesn't 
work for loop variables. The constants 255 and 256 should be defined as 
integer variables--this also increases the speed because the values do not 
have to be recalculated by the interpreter each time. We have made use of 
this in our example program. 
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Here is the BASIC loader for the graphics package: 


90 


NEXT | 
IF S<> 25905 THEN PRINT"***** ERROR IN DATA 
STATEMENTS ****x" 

INPUT"SAVE PROGRAM TO DISKETTE";AS$ 


FOR I= 


READ 
POKE 


REM *** BASIC LOADER FOR 80 COLUMN GRAPHICS*** 


DEC("0C00") TO DEC("0CE9") 
XS :X=DEC (XS) 
T,X 


S=S+X 


100 IF AS<>"Y" THEN END 

110 PRINT: INPUT "FILE NAME";FS 

120 BSAVE""+FS+"",B0,P3072 TO P3306 
130 END 


140 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4c,CD, 0C, 4C, D0, 0C, 4C, D3, 0C, 4C, E0, 0C, 4C, DD, 0C, 8E 
00,D6,2C,00,D6,10,FB, 8D, 01,D6, 60, 8E, 00,D6,2C, 00 
D6,10,FB,AD, 01,D6, 60, A2,19,A9, 80,20, OF, 0C,A0, 40 
A2,12,98,20, OF, 0C,A2,1F,A9, 00,20, OF, 0C, A2,1E, 20 
OF, 0C,88,10,EB, 60,08,A5,FA, 85, FE, 46, FB, 66,FA, 46 
FB, 66,FA, 46,FB, 66,FA,A9,00,85,FD,A5,FC, 06,FC,26 
FD, 06,FC,26,FD,65,FC,85,FC, 90,02,E6,FD,A2,04,06 
FC,26,FD,CA,D0,F9,A5,FA, 65,FC, 85,FC, 90,02,E6,FD 
A2,12,A5,FD,20, OF, 0C,E8,A5,FC, 20, OF, 0C,A2,1F,20 
1B, 0C, 48,A5,FE,29,07,AA, 68, 28,B0, 05, 3D,C5, 0C, 90 
03,1D,BD, 0C, 48,A2,12,A5,FD,20, OF, 0C,E8,A5,FC, 20 
OF,0C,A2,1F, 68,20, 0F,0C,A2,12,4C,1B, 0C, 80, 40, 20 
10,08,04,02,01, 7F,BF,DF,EF,F7,FB,FD,FE,20,27,0C 
4C,2E,0C,A2,19,A9, 40,20, OF, 0C, 4C, 0C, CE, 18, 90,01 
38,85,FA,86,FB, 84,FC, 4C, 46, 0C 


This routine is located in the RS-232 input buffer and can therefore be 
called from any bank configuration. This memory area was chosen because 
it is seldom used. If you do need it, you must move the routine to a new 
area and make the appropriate changes to the program. 


In conclusion, we do not want to leave you with the graphics package 
alone, we we wrote a short example program in BASIC which draws a 
damped oscillation on the 80-column screen. We find that the execution 
speed is quite satisfactory. You can also learn more about the operation of 
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the graphic routines from the example program. Naturally you can change 
the function in line 30 to see what "your" function looks like. 


220 


REM ** EXAMPLE PROGRAM FOR GRAPHICS PACKAGE ** 


DEFFNR (X) =40*SIN (X) *EXP (-0.5*X) +100 
FAST: TRAP 1000: REM IN CASE OF ERROR IN FNR(X) 
F%$=256: FF%=255: SE=DEC("C09"): RE=DEC ("COC") 
SYS DEC("C0O0"): REM GRAPHICS ON 
Y%=100: REM DRAW X-COORDINATE 
FOR X=0 TO 639 STEP 3: REM DOTTED LINE 
SYS SE,X AND FF%, X/F%, Y% 
NEXT | 
X%=320: REM DRAW Y-COORDINATE 


FOR Y=0O TO 199 STEP 2 : REM DOTTED LINE 
SYS SE,X% AND FF%, X%/F%, Y 

NEXT 

C=-32 

FOR X=0 TO 639 


FU%=FNR(C): IF FU%<0 OR FU%>199 THEN 190 
SYS SE,X AND FF%, X/F%, FU3% 
C=C+.1 
NEXT 
GETKEY A$: REM *** DONE, WAIT FOR KEY, BACK TO 
TEXT 
SYS DEC("C06"): PRINT CHRS$(147): SLOW 


1000 PRINT ERRS (ER) ;EL 

There are an unlimited number of applications for graphics. We will let 
your imagination run free here. We wish you much success with the use of 
the 80 column graphics routines. 
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Chapter 6: The Memory Management Unit 


6.1 Introduction to the MMU 


The Memory Management Unit (MMU) was designed to handle the 
complex addressing tasks in the C-128. As you may know, the 8502 and 
the Z-80 can address only 64K. You know from BASIC that the two RAM 
banks can only be addressed separately. Each 64K of RAM overlays the 
ROM and the I/O components. For example, there are two different RAMs 
at address $D600, the I/O provided by the 80-column controller and the 
ROMs. If a cartridges is inserted into the expansion slot, the MMU must 
differentiate this too. 


The MMU is also used in the 64 mode and is completely compatible 
with the C-64. In addition it can handle the tasks that come up in the C-128 
and CP/M modes. It also performs the computer mode selection and selects 
between the 8502 and the Z-80. Here is a list of its features: 


* Manages the translated address bus (TA8-TA15) 

* Selects the computer mode (C-64, C-128, CP/M) 

* Selects the processor (Z-80, 8502) 

* Prepares and manages the CAS selection lines for bank-switching 
the RAM. 


The MMU has a total of 11 registers that are found starting at address 
$D500. Since the I/O range is not always enabled, the memory 
configuration register and load registers A-D are copied into the memory 
range $FFO0 to $FFO5. This way there are four set configurations found in 
the preconfiguration registers A-D. They can be selected simply by loading 
a load register into the configuration register, without having to enable the 
I/O range. This is a very useful feature and saves both time and 
programming effort. But more about this later. 
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Here is a graphic representation of the available registers: 


$FFO4 
$FFO3 


$FFO2 

















LCRD | Load Configuration Register D 









LCRC Load Configuration Register C 


LCRB Load Configuration Register B ; 







Mode Configuration Register 
$0504 | PCRD Pieconiiguaalion Register D 
PCRC Preconfiguration Register C : 
PCRB Preconfiguration Register B 


$FFO1 LCRA Load Configuration Register A 
$FFOO C CONFIGURATION REGISTER 
(Copy at $D501) | | 


Page 1 Pointer -High 


Page 1 Pointer-Low 


| Page 0 Pointer-High 


Page 0 Pointer-Low 


? RAM Configuration Register 








Preconfiguration Register A | 


$D501 | PCRA 


$D500 


R 

R 
PiH 
Pit 
POH 
POL 
RCR 
MCR 
CR 


CONFIGURATION REGISTER 
(Copy at $FFOO) 
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6.2 The Configuration Register 


As already mentioned, there is a copy of some of the MMU registers at 
address $FFO0 (independent of the enabled RAM bank). This is not quite 
correct. In reality there is a copy of one register at address $FFOO; this is 
the configuration register CR. If you read memory location $FFOQ, you get 
the current contents of the configuration register. If you write to address 
$FFOO. the contents of the configuration register at $D500 in the MMU 
change at the same time. The registers $FFO1 to $FF04 are just "half" 
copies of the MMU registers. Half because when reading them they return 
the current contents of the corresponding MMU preconfiguration register, 
but when writing to these registers, the contents not of the corresponding 
MMU registers, but the configuration register is changed. 


This is not a disadvantage--quite the opposite. If you write to an LCRx 
register, the CR will be loaded with the corresponding PCR. An example: 
We write to LCRA at address $FFO1. The contents of this register doesn't 
change, but the contents of the CR does. The PCRA ($D501) is copied to 
the CR. This is a very practical feature: We can change the CR register 
without having to bother with the I/O range. We can select between four 
configurations stored in the MMU. This means the programmer need only 
say, "Select configuration #1," and the MMU switches this configuration 
on. In machine language this selection looks simply like this: 


STA SFFO1 ;Acc. contents irrelevant--enable 
configuration 1 


At the start of a program one can pre-program the most-used configurations 
into the four PCRs. But "manual" reconfiguration isn't much harder. Load 
the accumulator with the bit pattern necessary and store this at address 
$FFOO. Example for bank 15: 


LDA #00 ;corresponds to BANK 15 command 
STA SFFOO ;select configuration 


All eight bits of the configuration register are relevant: 


Bits 7,6 Select RAM bank. The bit combinations 00 and Q1 are 
possible in the 128K version. But since memory expansion, 
up to 256K is allowed, the possibilities 10 and 11 exist for 
this expansion. If these RAM banks are not present, 10 
means the same as 00 and 11 the same as 01. 
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Bits 5,4 Select what will be accessed when the memory range $C000 
to $FFFF is addressed: 
00 - System ROM (kernal) 
Q1 - Internal function ROM 
10 - External function ROM 
11 - RAM (bank, see bits 6 and 7) 


Bits 2,3 Select what will be accessed when the memory range $8000 
to $BFFF is addressed: 
00 - System ROM (BASIC) 
01 - Internal function ROM 
10 - External function ROM 
11 - RAM (bank, see bits 6 and 7) © 


Bit 1 Select what will be accessed when the memory range $4000 
to $7FFF is addressed: 
0 - System ROM (BASIC) 
1 - RAM (bank, see bits 6 and 7) 


Bit 0 Select what will be accessed when the memory range $D000 
to $DFFF is addressed: 
0 - System I/O 
1 - RAM/ROM, dependent on bits 4 and 5 


It should be noted that when ROM is enabled in the range $C000 to 
$FFFF (bits 4 and 5) there is always a gap in the range $D000 to $DFFF. If 
the system I/O is enabled, the system I/O components occupy this range. If 
bit 0 is set, the character generator is found here. 


6.2.1 The preconfiguration registers 


The preconfiguration registers are found at addresses $D501 to $D504 
and copies of them are found at addresses $FFO1 to $FF04. They have no 
significance in the C-64 mode. Preconfiguration registers are registers in the 
MMU which can be pre-programmed with specific memory configurations. 
These pre-programmed configurations can be transported to the 
configuration register by means of the "Load Configuration Register". The 
use of these registers was described in section 6.2. The bits are encoded in 
the same manner as for the configuration register. The encoding is also 
found in section 6.2. 
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6.3 The Mode Configuration Register 


The mode configuration register is found at address $D505. It sets the 
current computer mode, that is, which CPU is operational (8502 or Z-80) 
and whether the 64 or 128 mode is active. 


Bit 7 Indicates if the 40/80 column key was pressed at reset. 0=80 
column, 1=40 column mode. 


Bit 6 This bit indicates whether the 64 or 128 mode is active; 
0=128 mode. After power-up or RESET the 128 mode is 
always active. 


Bits 4,5 These two bi-directional bits indicates whether or not the 
cartridge lines GAME or EXROMIN are being used. If so, 
the 64 mode must be enabled and control passed to the 
cartridge. In the 128 mode these lines are not used. 


Bit 3 FSDIR control bit. This bit is used as the output bit for the 
fast serial data bus buffer as well as the input bit for the disk 
enable signal. 

Bits 1,2 These bits have no significance. 

Bit O This bit selects the processor; 1=Z-80, 0=8502. 


If bit O of this register is written to, the contents are temporarily 
buffered until the current clock cycle is done. Otherwise, complications 
could occur when the processors are switched. 


By looking at bit 0 we can determine whether the Z-80 or the 8502 is 
operational. When writing to this register, the bit is stored until the clock 
pulse falls. If the bit is set, the Z-80 is active and the range $D000 to 
$DFFF is mirrored in the range $0000 to $OFFF. The BIOS ROM is also 
physically located at the range $0000 to $OFFF. The BIOS ROM can't be 
read (via software) when the 8502 is enabled. 


For example, if the Z-80 is enabled, the 8502 is stopped and the Z-80 
continues where it left off. This simply means that the PC (Program 
Counter) continues with the course of the program. The same is true when 
the 8502 is switched on: it picks up its work where it left off and this takes 
place immediately after the instruction to switch on the Z-80. 
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In the 64 mode the Z-80 enable line (defined by bit 0) is always zero so 
that the Z-80 mode cannot be enabled in the C-64 mode. Furthermore, there 
are no copies of the MMU registers in the addresses at $FFOO in the 64 
mode. | 


6.4 The RAM Configuration Register 


The RAM configuration register is found at address $D506 of the 
MMU. It is used to define the common RAM areas. But why define 
-common RAM areas? | 


Quite simple: The interpreter, for example, stores all of the required 
system variables and pointers in the zero page (although there really isn't a 
zero page anymore). If the interpreter now switches to bank 1, for instance, 
in order to read or write variables, these system pointers would no longer be 
available since they are found in bank 0. It would be a lot of bother to have 
to make changes in both memory banks every time a zero-page location was 
changed. 


To avoid this, the Commodore engineers thought it would be very 
practical to be able to define a certain memory range so that it looked the 
same in all RAM banks. In reality, the zero page is stored in only one RAM 
_ bank, bank 0. If you then address this memory range in RAM bank 1 (or 
another bank), the MMU recognizes this and addresses the corresponding 
area in bank 0. 


These common memory ranges are called common areas. The MMU 
offers the programmer the option of defining whether or not he wants a 
common area, and if so, how large it should be and where it should be 
located. But first the register layout before we take a closer look at the 
individual bits: 


Bits 6,7 These two bits store the RAM bank for the VIC chip, where 
the text or a graphic page will be stored. Normally the video 
RAM is found in bank Q. 
00=RAM bank 0, 01=RAM bank 1, 10=RAM bank 2(0), 
11=RAM bank 3(1) 


Bits 4,5 These two bits are still unused in the present version. They 


are intended for expansion to 1Mbyte of RAM. Then 
selecting these would address a 256K block. 
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Bits 2,3 Bits 2 and 3 indicate if and where a common area is defined. 
00=no common area, independent of bits 0 and 1 
01=lower area is common 
10=upper area is common 
11=both upper and lower areas are common 


Bits 0,1 Here is defined how many Kbytes will be used as a common 
area. These two bits are valid only when bits 2 and 3 are not 
equal to 00. 
0Q0=1 Kbyte common area 
01=4 Kbyte common area 
10=8 Kbyte common area 
11=16 Kbyte common area 


When a common area is defined, the minimum area possible is 1K. But 
is also possible to declare no area as common. To do this, set bits 2 and 3 to 
zero. If only one of bits 0 and 1 are set, bits 4 and 5 will have effect. 
Normally, only the lower area with 1Kbyte is defined as a common area. In 
the 64 mode, this register has no effect. 


If a 1Kbyte area is defined as a common area, the range $0000 to 
$03FF is identical in both RAM banks if the lower area is enabled. If both 
the upper and lower areas are enabled as the common area, the ranges 
$0000 to $03FF and $FCO00 to $FFFF are identical in both RAM banks. 
You can define up to 32K as a common area by defining both areas and 
16K as the common area. 


Bits 6 and 7 determine from which RAM bank the VIC chip should get 
its information regarding the video RAM. This offers us fantastic 
capabilities. It is very easy to manage two 40-column screens without 
having to move the address of the video RAM, which is more complicated 
than switching the RAM bank. In RAM bank 0 you can define screen 
number 1 at address $0400 and screen 2 at the same address in bank 1. You 
can then switch between the two by setting or clearing bit 6. 


LDA #00 ;system I/O 

STA SFFOO ;enable 

LDA SD506 ;old RCR value 

ORA #$40 ;screen in RAM bank 1 
STA $D506 ;enable 
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6.5 The Page Pointer 


There are two page pointers: one page pointer for the zero page, and a 
page pointer for page 1, in which the stack normally lies. 


$D507/$D508: Page pointer 0 
$D509/$D50A: Page pointer 1 


The low-order byte of these pointers represents the address bits 8 to 15. 
The high-order byte determines the RAM bank which will be used, 
representing address bits 16 to 19. Bits 7-4 are not used in the high-order 
byte. 


If the high-order byte of a page pointer is written, it is stored 
temporarily until the low-order byte of the pointer is also written. 


If the zero page or page 1 is moved to another address, the MMU adds 
the base address automatically to access the zero page or for stack actions. 


Higher bytes ($D508/$D50A) 


Bits 7-4 unused 

Bits 3-0 Address bits 16 to 19 for translated address (TA) | 
In the present version, only bit 0 is of interest; the remaining bits 
1-3 are ignored. 


Lower byte ($D507/$D509) 


Bits 0-7 These bits represent the high-order byte of the page pointer, that 
is, address bits 8-15. For the zero-page pointer this byte is 
usually 0; for the page-1 pointer it is 1. 


The advantages are clear. You can have a separate stack for each 
subroutine as well as a separate system-variable area if you don't call the 
kernal routines. Moving the zero page has two advantages: Programs will 
be shorter and faster. 


Assembly language programmers are often searching for free memory 
locations in the zeropage. As an example, the LDA ($xx),Y instructions 
function only with zero-page addresses. Using the page pointers you can 
move zero page to a free memory area. 
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The ability to move page 1 is also practical. This makes it possible to 
give each subroutine its own stack. This is a very useful feature. You need 
only save the stack pointer and then have a new stack available for the 
subroutine. This results in more space on the stack, and the stack need not 
be completely reconstructed when the routine is exited. You need only to 
restore the page 1 pointer to the normal value ($01) and reset the stack 
pointer SP. This is a particularly useful feature for PASCAL compilers. 


Moving the stack might look something like this: 


LDA #$00 ;system I/O 

STA SFFOO ;enable 

LDA #SFO sstack at address $F000 
STA SD507 ;in RAM bank 0 


TSX ;and save SP 

STX SFD jin zero-page SFD 
LDX #SFF ;initialize 

TXS s;new stack 


Since the stack has been redefined, the stack must be reconstructed the 
at the end of the routine, otherwise it is no longer possible to exit from the 
subroutine with RTS. This reconstruction looks like this: 


LDX SFD ;get old stack pointer 

TXS ;and reset SP 

LDA #$01 ;stack again at address $0100 
STA $D507 ;default value 

RTS ;return now possible 


_ Here is a rather unconventional way to clear the screen. It is used often 
in professional programs because it is very fast. It is used in graphics 
programs for filling surfaces, for example. 


The whole thing is done by "misusing" the stack pointer for addressing. 
A PHA instruction writes the contents of the accumulator to the current stack 
address and the stack address is automatically decremented--all of this in a 
one-byte command. This is much faster since it's all done in hardware. In 
the "normal" assembler notation this looks like this: 


STA (S$xx),Y 
DEY 
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The addressing mode is more complicated for the CPU, so it needs 
more time. The same action requires three bytes, and it is slower since the 
code must be fetched, interpreted, and executed. 


Our new screen-clear routine saves the stack pointer, places it at the 
screen start $0400, and then pushes the accumulator onto the new stack 
1024 times. After each 256 bytes the high-order byte must naturally be 
incremented. The interrupts should also be disabled during the routine in 
order to prevent stack overflow. 


LDA #S00 ;BANK 15 
STA SFFOO 
SEI ;DISABLE INTERRUPTS 
LDA #S04 ;NEW START ADDRESS OF THE SP 
STA $D509 ;IS $0400 IN RAM BANK 0O 
TSX ;STACK POINTER TO X 
STX SFD ; AND SAVE CURRENT POINTER 
LDX #SFF ;SP TO START OF STACK 
TXS 
LDY #$03 ;256 BYTES TIMES 4 
LDX #500 ;256-BYTE COUNTER 
LDA #$20 ;FILL CHARACTER 
NEXT PHA ;SAVE CHARACTER 
DEX ;DECREMENT LOOP 
BNE NEXT ;NEXT CHARACTER 
INC $D509 ; INCREMENT SP HIGH BYTE 
DEY ;ALL FOUR BLOCKS FILLED? 
BNE NEXT ;NO, NOT YET 
LDX S$FD ;GET OLD SP 
TXS ;AND STORE AGAIN 
LDA #$01 ;HIGH BYTE OF ORIGINAL STACK 
STA $D509 ;AND SET 
CLI ;REENABLE INTERRUPTS 
RTS ;END OF THE CLEAR ROUTINE 


This routine isn't much longer than a "traditional" screen-clear routine 


and it is much faster. It also demonstrates the capabilities that are possible 
by changing the page-pointer base addresses. 
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6.6 The Version Register 


Bits 7-4 Bank version; These bits give information as to the total available 
memory space. As already mentioned, the computer has the 
possibility to expanded to 1Mbyte. The standard contents of this 
register for the 128 are $20. The "2" stands for two 64K blocks. 
A 1M version would contain sixteen 64K blocks. Bits 7-4 of this 
register would then contain a 0. 

Bits 3-0 MMU version; These bits indicate the version number of the 
MMU 


The system version register is quite uninteresting for actual memory 
management. The low-order nibble contains a specification of the MMU 
version. In the high-order nibble the existing memory construction can be 
read. Here programs can determine how much memory they can access and 
set themselves accordingly. Future programs will undoubtedly do this. 
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Chapter 7: Assembly Language Programming 


7.1 Introduction to Assembly Language Programming 


We hardly need to explain to an Internals reader what assembly or 
machine language is. This chapter is designed to show you how to use the 
operating system routines in your own programs. Why keep reinventing the 
wheel? There is a whole set of useful routines available which can be very 
easily accessed. This makes your programs shorter and easier to read. 


We want to make the work easier for you and explain the kernal 
routines by means of short examples. Naturally, we cannot go into all of the 
kernal routines; there are simply too many. 


7.2 The CPU - The 8502 


The heart of a computer is the CPU and in the C-128 it's the 8502, in 
addition to the Z-80. It is fully software-compatible to the 6510 and its 
predecessor, the 6502. In contrast to the 6510, the 8502 can be driven at 
2MHz--making it twice as fast. 


The pinout: 
1 OIN System clock input; selectable 1 or 2MHz (approximately) 
2 RDY Ready; 0=processor stops on the next clock cycle until 
RDY=1. This can be used to operate slow memory, for 
example. 
3 -IRQ Interrupt request; O=processor gets the next commands 


address from $FFFE and continues from there. This occurs 
only when interrupts are enabled. 

4 -NMI Non-maskable interrupt; O0=processor gets the next 
command address from $FFFA and continues from there. This 
interrupt cannot be disabled. 

5 AEC Address enable control; O=processor brings data, 
address, and control bus to the high-Z state (tri-state). The bus 
can then be driven by other devices, such as a second 
processor. 

6 VCC Operating voltage +5V. 
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7-20 AOQ-A13; Address bus. 

21 GND 

22-23 A14-A15; Address bus 

24-29 P5-PO; I/O pins 

30-37 D7-D0O; data bus 

38 R/-W; O=write access, 1=read access 
All access occur only when 02=1. 

39 O2OUT; System clock output for supplying other components 

40 RES Reset; O=processor goes into the rest state. When the 
signal goes from 0 to 1, the processor gets an address from 
$FFFC executes the program at that address. 


7.3 The Kernal Routines 


First we like to dedicate ourselves to the routines that are found in part 
in the extended zero page. These include the very important routines which 
allow you to read from, write to, or peform a comparison with any memory 
location in any bank. 


7.3.1 FETCH, STASH, and CMPARE 


These three routines are used to read, write, and compare memory 
locations in any bank, regardless of the memory configuration. The 
configuration is unchanged after calling one of these routines. 


When calling the routines, you must pass the configuration index in the 
X register. The operating system has 16 configurations of the 128 possible 
Stored in a table at $F7FO. 


Find the desired memory configuration from the table on the next page 
and load it into the X register. 
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Memory Configuration 


only RAM 0 

only RAM 1 

only RAM 2 (RAM 0) 

only RAM 3 (RAM 1) 

Int. ROM, RAM 0, I/O 

Int. ROM, RAM 1, I/O 

Int. ROM, RAM 2, I/O 

Int. ROM, RAM 3, I/O 

Ext. ROM, RAM O, I/O 

Ext. ROM, RAM 1, I/O 

Ext. ROM, RAM 2, I/O 

Ext. ROM, RAM 3, I/O 

Kernal, Int (Lo), RAM 0, I/O 
Kernal, Ext (Lo), RAM 1, I/0 
Kernal, BASIC, RAM 0, CHARROM 
Kernal, BASIC, RAM 0, I/O 






















PPP PPODIDUAWNHERO 
Oo BWNHEO 








7.3.1.1 FETCH 
Part of the FETCH routine is found at address $02A2 in RAM. To read 
from a memory location, the following parameters are passed to this routine: 
Acc _ : pointer to zero-page address 
X-reg : configuration index (see above) 
Y-reg : offset for the address 
Before calling FETCH, place the two byte address of the memory 
location to be read into a zero-page location. Then pass the address of the 
zero-page location into the Accumulator. 


The following example program reads from address $1000 in bank 1: 


LDA #S00 ;LOW BYTE OF $1000 
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LDA #$00 
STA SFC 

LDA #$10 
STA SFD 

LDA #SFC 
LDY #$00 
LDX #S01 
JSR SFF74 


7;LOW BYTE OF $1000 

7; IN ZERO PAGE 

,;HIGH BYTE OF $1000 

7; IN ZERO PAGE 

r, ADDRESS IN ZERO PAGE 
;OFFSET IS ZERO 

; SELECT RAM BANK 1 
;FETCH--RETURN IN ACC. 


After the call the accumulator returns the contents of the memory 
address. The X-register contains the current configuration and the Y-register 


remains unchanged. 


7.3.1.2 STASH 


The STASH routine is essentially the opposite of the FETCH routine. 
Since you must pass in the accumulator the value to be stored, the 
accumulator can no longer be used to pass the address of the zero-page 
pointer. This is why you have to do "by hand" what the FETCH routine did 
for you automatically. 


Writing to the memory address $1000 in bank RAM looks like this: 


LDA #S00 
STA SFC 
LDA #$10 
STA SFD 
LDA #SFC 
STA $02B9 
LDA #SFF 
LDX #S01 
LDY #$00 
JSR S$FF77 


;LOW BYTE OF $1000 

,; IN ZERO PAGE 

;HIGH BYTE OF $1000 

; IN ZERO PAGE 

; ZERO PAGE ADDRESS OF THE POINTER 
;WRITE TO STASH ROUTINE 

; VALUE TO BE WRITTEN 

;RAM BANK 1 

;OFFSET FOR ADDRESS 

;CALL STASH 


After calling the STASH routine, the accumulator and the Y-register are 
unchanged; the X-register contains the current configuration. 


The MMU register can be written in the same manner, without having 
to change the configuration. The same applies to the I/O components. 
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7.3.1.3 CMPARE 


The CMPARE routine compares the contents of a memory location with 
the contents of the accumulator. To do this, you have to write the address of 
‘the memory location to be compared into the CMPARE routine before 
calling it. Comparing the memory location $1000 in bank 1 with the value 
$22 would look like this: 


LDA #S00 ;LOW BYTE OF $1000 

STA SFC ;IN ZERO PAGE 

LDA #$10 ;HIGH BYTE OF $1000 

STA SFD ;IN ZERO PAGE 

LDA #SFC ;ADDRESS OF THE PTR IN THE ZERO PAGE 
STA $02C8 ;WRITE TO CMPARE ROUTINE 

LDA #$22 ;VALUE TO BE COMPARED TO 

LDX #$01 ;RAM BANK 1 

LDY #S00 ;OFFSET | 

JSR SFF7A ;COMPARE ($1000) IN RAM 1 TO $22 


After the routine has been called, the flags (zero, minus, and carry) are 
set according to the comparison. The accumulator and the Y-register remain 
unchanged, the X-register contains the current memory configuration. 


7.3.2 GETCONF 


This routine does nothing more than get the configuration byte from the 
table at $FF70 corresponding to the configuration index in the X-register. 
This value is simply returned; it is not set. Since the kernal ROM must be 
enabled in order to jump to this routine, it's recommended that you read the 
configuration byte from the table; it goes faster. 


LDX #SOF ;SELECT CONFIGURATION 15 
JSR SFF6B ;GETCONF 
STA SFFOO ;SET CONFIGURATION 
would be the same as: | 
LDX #SOF ;SELECT CONFIGURATION 15 


LDA SF7F0O,X ;GET CONFIGURATION BYTE 
STA SFFOO ;SET CONFIGURATION 
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The length of the routine is the same--it can be shortened by doing it 
directly (without the X-register): 


LDA SF7FO + SOF 
7.3.3 JSRFAR and JMPFAR 


If, for example, you have blocked out part of the ROM and want to 
jump to a kernal routine, you can do this via the JSRFAR routine. Here the 
CPU registers are not used for passing parameters but the zero-page 
addresses $02 to $09. 


$02 Configuration index 

$03, $04 New PC - jump address 
$05 New processor status 

$06 Accumulator 

$07 X-register 

$08 Y-register 

$09 SP - stack pointer 


The corresponding values are found at $05 as the output parameters. 
Let us assume that we have configuration 1 enabled--that is, only RAM 1. 
We want to determine the contents of address $0400 in RAM bank 0 (the 
left-hand corner of the 40-character screen). We must use the FETCH 
routine for this. For example: 


LDA #$S7F ;ENABLE RAM 1 AND KERNAL 

STA SFFOO ; INTO CONFIGURATION REGISTER 

LDA #SOF ;CONFIGURATION IDEX KERNAL & RAM 0 
STA $02 ;PASS 

LDA #SFF ;HIGH BYTE OF SFF74 

STA $03 ;PASS 

LDA #$74 ;LOW BYTE OF THE DESTINATION ADDRESS 
STA $04 ;PASS SFF74 

LDA #SO0O0 ;LOW BYTE OF $0400 

STA SFC » SAVE 

LDA #S$04 ;HIGH BYTE OF $0400 

SAT SFD ;PASS 

LDA #SFC ;ZERO-PAGE ADDRESS OF THE POINTER 
STA S06 ;AND PASS 

LDA #S00 ;ADDRESS RAM BANK 0 
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LDA #S00 ;VALUE FOR Y-REGISTER FOR FETCH 

STA $08 ;SAVE OFFSET 

JSR SFF6E ;CALL JSRFAR | 

LDA $06 ;HERE IS THE VALUE FROM $0400 IN 
RAM 0 


A lot of parameters to pass, right? First it's very important to ensure 
that the kernal range $CO00 to $FFFF is enabled. No RAM may be 
addressed here or the JSRFAR routine will hang up (even if you call the 
JSRFAR routine directly at $02CD--it simply branches back to the kernal). 
So you should always check this before calling JSRFAR, which we do in 
our example routine first. RAM bank 1 is enabled by the byte $7F and all 
memory areas except for $C000 to $FFFF are switched to RAM. Then the 
new configuration register is defined. 


The second important point: The program counter PC is defined with 
the high byte at address $03 and the low byte at address $04; note that this 
is not the usual machine language convention. 


All specifications that are not absolutely necessary can be omitted. 
Usually all that is required is to define the memory configuration in $02 and 
then the new program counter in $03/$04. All the others are options which 
may be useful at various times. 


The routine JSRFAR writes the corresponding values at addresses $05 
to $09 when it returns. In our example, use is also made of parameter 
passing in the accumulator. 


We now want to show you another short example. Imagine that you 
have program code in RAM bank 0 as well as RAM bank 1. This first 
routine is the "subroutine" in bank 1 which in our example does nothing 
more than add the accumulator and X-register. The carry is indicated in the 
carry flag. Enter the routine in the monitor with A 12000. You then select 
RAM bank 1. 


12000 LDA $06 ;ACC PARAMETER 

12002 CLC ;CLEAR CARRY FOR ADDITION 
12003 ADC $07 ;ADD TO X REGISTER 

12005 RTS ;END OF THE ROUTINE 


The routine gets the contents of the accumulator from address $06 and 
then adds it to the X-register. The contents of the accumulator are returned 
in address $06. In this example it is important that the processor status 
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in address $06. In this example it is important that the processor status 
register, containing the flags, is passed to address $05. In the main program 
the carry flag can be tested with BCC or BCS. But here is the routine in 
RAM bank 0, which calls the routine in RAM bank 1 by means of the 
JSRFAR routine: 


02000 LDA #S3F ;RAM O AND KERNAL 
02002 STA SFFOO ;SET AS CONFIGURATION 
02005 LDA #SOD ;RAM 1 AND KERNAL 
02007 STA $02 ;NEW CONFIGURATION 
02009 LDA #$20 ;ACC IS $20 

O200B STA S06 ;PASS 

(0200D LDA #SFF ;ADD SFF 

O200F STA $07 ;PASS 

02011 LDA #$S20 ;HIGH BYTE OF $2000 
02013 STA $03 ;PASS AS PC 

02015 LDA #S00 ;LOW BYTE OF $2000 
02017 STA S04 ;PASS AS PC 

02019 JSR SFF74 ;CALL JSRFAR 

0201C LDA $05 ;GET FLAGS 

O201E PHA ;ON STACK 

O201F PLP ;AND IN FLAG REGISTER 
02020 LDA $06 ;LOW BYTE OF ADDITION 
02022 STA SFD ;STORE AS LOW BYTE 
02024 LDA #S00 ;HIGH BYTE 

02026 STA SFE ; STORE 

02028 BCC $202C ;NO CARRY, THEN JUMP 
O202A INC SFE ;COMPENSATE FOR CARRY 
0202C BRK ;TO MONITOR 


When you enter and start this routine, you will find the result of the 
addition $FF+$20 = $11F at address $FD/$FE. This routine shows how to 
get the flags which are passed in memory location $05 actually into the 
status register: Load the accumulator with the contents of $05, push it onto 
the stack, and then pull it into the status register. 


The JMPFAR routine works the same way as JSRFAR. Here however 
there is no return via RTS, but that is also why this routine is called 
JMPFAR. Naturally, no output parameters can be checked since there 1s no 
return. 
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7.4.1 Kernal routines with vectors at $FF4D 


First we want to look at the kernal routines defined via jump vectors at 
address $FF4D. These include the most important routines, from input and 
output of characters to the RS-232 routines. 


The routines are introduced in the order of their definition at $FF4D. 
Whenever possible, the input/output parameters are given, as well as a short 
description. Where appropriate, a short example routine accompanies the 
description. The entry addresses are given in both decimal (in parentheses) 
and hexadecimal. 


When vectors are present, you should always use them to access the 
routine--it's why they are there. Should the operating system ever be 
changed or extended, the location of these vectors will not be changed so 
your program will not crash or go crazy. 


C64 MODE 


Purpose: Enable the 64 mode 
Address: $FF4D (65357) 


Description: A jump to this routine causes the computer to switch from the 
128 mode to the 64 mode. The clock frequency is reduced to 1MHz and the 
MMU locks all of the necessary registers so that they cannot be manipulated 
in the 64 mode. There is no return! 


Input parameters: None 
Output parameters: -none, since no return- 
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DMA-CALL 


Purpose: Initialize external RAM components 
Address: $FF50 (65360) 


Description: In order to have direct memory access (DMA) to external 
RAM, it must be first initialized with this routine. The new configuration is 
passed in the X-register. 

Input parameter: .X 

Output parameters: 


BOOTCALL 


Purpose: Boot the disk 
Address: $FF53 (65363) 


Description: When this routine is called, the computer attempts to boot from 
the disk inserted in the drive--the same as when the computer is turned on. 
If the routine cannot find a boot file, it returns control. The device address is 
passed in the X-register so you can boot from device 8 or 9. 


Input parameter: .X 
Output parameters: 
PHOENIX 


ose: Cold start 
Address: $FF56 (65366) 


Description: Cold start the 128 mode. If a memory card is found in the 


expansion cartridge, control is passed to this card. Otherwise an attempt 1S 
made to boot the disk. Tabs, key definitions, etc. are all reset. 
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LKUPLA 


Purpose: Search in the table for logical file number 
Address $FF59 (65369) 


Description: The routine searches in the table for the device and secondary 
addresses of the logical file number given in the accumulator. The status 
variable ST is set according to the results of the routine. If the logical file 
number is found, the carry is cleared and the following parameters are 
transmitted: A:LFN, X:device address, Y:secondary address. If the routine 
does not succeed, the carry is set. Only logical file numbers opened with 
OPEN can be found. 


Input parameter: .A contains the LEN to find 
Output parameters: Status ST at $90, .A, .X, .Y, carry 
Zero-page address $B8 to $BA 


Example: 
;Search for LFN | 
LDA #$S01 ;SEARCH FOR LFN 1 
JSR SFF59 
BCS ERROR ;NOT OPENED--OUTPUT ERROR 
TAX ;LFN TO X 
JSR SFF59 ;CKOUT - SET FILE AS OUTPUT FILE 


LKUPSA 


Purpose: Search for a secondary address 
Address: $FF5C (65372) 


Description: This routine looks in the table of opened channels for the 
secondary address passed in the Y-register. As for the LKUPLA routine, 
the carry flag is set if the search failed. The carry is cleared if the search 
succeeded and the accumulator contains the LFN, the X-register contains 
the device address, and the Y-register the secondary address. 


Input parameters: .Y contains the SA to search for 


Output parameters: Status ST at $90, .A, .X, .Y, carry 
Zero-page addresses $B8 to $BA 
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Example: 
;Search for LFN of disk command channel 
LDY #SOF ;SEARCH FOR LFN WITH 
JSR SFF5C ;SECONDARY ADDRESS 15 
BCS ERROR ;NOT FOUND, RETURN ERROR 
TAX ;LFN TO X 
JSR CKOUT ;OPEN AS OUTPUT DEVICE 
JSR INITD ; INITIALIZE DISKETTE 


SWAPPER 


Purpose: Switch 40/80 columns 
Address: $FF5F (65375) 


Description: This routine exchanges the 40/80 column mode. The 
information in the zero page for the active screen must be exchanged with 
that of the passive screen. The memory range $EO to $FA is exchanged with 
the area $0A40 to $0A5A. No input parameters are necessary. 


Example: 
;Clear both screens 
JSR $C142 ;CLEAR SCREEN 
JSR SFFSF ;EXCHANGE 40/80 COLUMN MODE 
JSR $C142 ;CLEAR PASSIVE SCREEN TOO 
JSR SFFSF ;BACK TO CURRENT SCREEN 


DLCHR 


Purpose: Copy the CHARROM 
Address: $FF62 (65378) 


Description: The character set is copied into the VDC RAM when the 
<40/80 DISPLAY> key is pressed because the 80-column controller does 
not get the character information from ROM. The graphics package, for 
example, makes use of this routine because the character set in VDC RAM 
is overwritten when graphics are used. The character set selected by the 
<40/80 DISPLAY> key and is copied into VDC RAM by this routine. 
There are neither input nor output parameters. | 
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PFKEY 


Purpose: Redfine a key 
Address: $FF65 (65381) 


Description: This routine allows you to define the function keys (F1 to F8 
as well as SHIFT/RUN-STOP and HELP). The address in the zero page © 
which points to the KEY text is passed in the accumulator. The X-register 
contains the number of the function key (1 to 10) and Y contains the length 
of the string. Then you can call the routine PFKEY, which inserts this 
string into the table. 

Input parameters: Zero page, .A, .X, .Y 


Example: (at address $2100) 
;Redefine the HELP key 
LDA #S00 ;LOW BYTE OF $2000 
STA SFC ;STORE IN ZERO PAGE 
LDA #$20 ;HIGH BYTE OF $2000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;POINTER 
LDX #SOC ;REDEFINE HELP KEY 
LDY #4 ;LENGTH OF STRING AT $2000 
JSR SFF65 ;REDFINE KEY 


And at address $2000: 


02000 52 55 4E OD 


SETBNK 


Purpose: Define memory bank for disk operation 
Address: $FF68 (65384) 


Description: This routine must be called before LOAD, SAVE, VERIFY, 
and every OPEN command. The configuration index of the filename is 
passed to it in the Y-register, as well as the configuration index of the 
memory area to be processed in the accumulator. The Y-register is stored in 
zero-page address $C6 and the accumulator in $C7. See also the example 
for SETNAM (FFBD). 


Input parameters: .A, .Y 
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GETCONF 


Purpose: Get the configuration byte 
Address: $FF6B (65387) 


Description: There is a table of 16 of the memory configurations required 
for normal operation. This table is found at address $F7FO. You pass the 
configuration index to this routine in the X-register and you get the 
configuration byte back in the accumulator. Normally this byte is then 
written in the configuration register at address $FFOO of the MMU. 


Input parameter: .X 
Output parameter: .A 


Example: 
;set RAM bank 1 
LDX #$01 ;ONLY RAM BANK 1 
JSR SFF6B ;GET CONFIGURATION BYTE 
STA SFFOO ;AND SET 


-JSRFAR 


Purpose: Jump to a subroutine in any bank 
Address: $FF6E (65390) 


Description: The routine JSRFAR is used to jump to a subroutine in any 
configuration. The parameters are passed through zero-page locations $02 
to $09. After the routine returns, the old configuration is re-enabled. A 
precise description including example program is found in Section 7.3.3. 


Input parameters: Zero page $02 to $09 
Output parameters: Zero page $05 to $09 
JMPFAR 


Purpose: Jump to any bank 
Address $FF71 (65393) 


Description: Here again the parameters are passed through zero-page 
addresses $02 to $09. JMPFAR is not a subroutine call but just a jump to an 
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address in a bank; JMPFAR combines switching the configuration byte with 
the jump. Since there is no return here, no parameters are returned. You can 
find more about this routine in Section 7.3.3. 


Input parameters: Zero page $02 to $09 


INDFET 


Purpose: Get a byte from any bank 
Address: $FF74 (65396) 


Description: This routine, completely contained in the zero page, allows you 
to read any memory address in any configuration without having to change 
the current configuration. To do this you must first define a pointer in a 
zero-page address to the memory location to be read. This zero-page 
address is then passed in the accumulator, while the configuration index is 
passed in the X-register and the offset to the zero-page pointer in the 
Y-register. You can find more information about the FETCH (=INDFET), 
STASH, and CMPARE routines in Section 7.3.1. 


Input parameters: .A, .X,.Y, 1 zero-page address 
Output parameter: .A 


Example: 
;Get $1000 from RAM bank 1 
LDA #S$00 ;LOW BYTE OF $1000 
STA SFC ;STORE IN ZERO PAGE 
LDA #$10 ;HIGH BYTE OF $1000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;POINTER IN ZERO PAGE 
LDX #SOD ;RAM 1 AND KERNAL 
LDY #S00 ;OFFSET IS ZERO 
JSR SFF74 ;GET BYTE FROM $1000, RAM BANK 1 


INDSTA 


Purpose: Store accumulator in any bank 
Address: $FF77 (65399) 


Description: Similar to the INDFET routine, this routine stores the contents 
of the accumulator in any memory configuration. The parameters must be 
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passed in the accumulator, and the X and Y registers. The character to be 
stored must be passed in the accumulator. The zero-page address at which 
the pointer is stored must be defined at address $02B9. You can get more 
detailed information about this routine in Section 7.3.1. 


Input parameters: .A, .X, .Y, zero page, $02B9 


Example: 
;Store SFF at $1000 in RAM bank 1 
LDA #$S00 ;LOW BYTE OF $1000 
STA SFC ; STORE 
LDA #$10 ;HIGH BYTE OF $1000 
STA SFD ; STORE 
LDA #SFC ;ADDRESS IN ZERO PAGE 
STA $02B9 ;PASS TO INDSTA ROUTINE 
LDA #SFF ;VALUE TO BE WRITTEN 
LDX #SOD ;RAM 1 AND KERNAL 
LDY #$00 ;OFFSET IS ZERO 
JSR SFF77 ;CALL INDSTA. 


INDCMP 


Purpose: Compare the accumulator with memory in any bank 
Address: $FF7A (65402) 


Description: This routine compares the accumulator with any memory 
location in any bank. Just as with the INDSTA routine, you must pass the 
address of a zero-page pointer to the INDCMP routine. This is done at 
address $02C8. The byte to be compared is passed in the accumulator while 
the configuration index is passed in X and the offset in the Y-register. After 
calling the routine, the result of the comparison--the processor status 
byte--is found at address $05. The example below shows how you can react 
accordingly to the result of the comparison. More information is in Section 
Toul. 


Input parameters: .A, .X, .Y, zero page, $02C8 
Output parameters: $05 (status) 


Example: 
;Compare <acc> with <$1000> in bank 1 
LDA #$00 ;LOW BYTE OF $1000 
STA SFC ; STORE 
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LDA #$10 ;HIGH BYTE OF $1000 

STA SFD ; STORE 

LDA #SFC ;POINTER IN ZERO PAGE 

STA $02C8 ;PASS TO INDCMP ROUTINE 

LDA #SFF ;COMPARISON OPERAND 

LDX #$0D ;RAM BANK 1 AND KERNAL 

LDY #$00 ;OFFSET 

JSR SFF7A ;CALL INDCMP 

LDA $05 ;GET STATUS (RESULT OF COMPARE) 


PHA ;ON STACK AND THEN 
PLP ;IN PROCESSOR STATUS REGISTER 
BEQ EQUAL ;JUMP IF EQUAL 
;--- NOT EQUAL --- 
PRIMM > 


Purpose: Output text 
Address: $FF7D (65405) 


Description: This routine is very practical because it's simple to use. No 
parameters need be passed. All characters following the call are sent to the 
current output device via BSOUT. A zero-byte is used as the terminating 
character. The program execution is then continued immediately following 
the zero-byte. One disadvantage of this routine: The program will be 
unreadable if it is disassembled. 


Example: 
JSR SFF7D ;OUTPUT FOLLOWING CHARACTER 
-ASC "This is a string!" 
-BYT $OD,S0OA,S0D,$00 
LDA #S00 ;THE PROGRAM CONTINUES HERE 


See also the example in the ROM listing at $F908. 


CINIT 


Purpose: Initialize video controller and editor 
Address: $FF81 (65409) 


Description: The function keys are returned to the defaults, both video 
controllers are initialized and the 40/80 column mode is enabled dependent 
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on the 40/80 column key. The keyboard buffer is cleared, all flags are reset, 
and a CLRCH is performed. 


IOINIT 


Purpose: Initialize the input/output device 
Address: $FF84 (65412) 


Description: The input/output devices are initalized, meaning that the 
RESET line on the serial bus is activated. Any printers connected are set to 
their initial states and the disk drive clears its channels--it is like it had just 
been turned on. 


RAMTAS 


Purpose: BASIC warm start 
Address: $FF87 (65415) 


Description: This routine initializes the zero page, resets the pointers for 
SYSTOP and SYSBOT (the memory upper and lower boundaries), resets 
the pointers for the RS-232 input/output buffers, and resets the cassette 
buffer. 


RESTOR 


Purpose: Initialize system vectors 
Address: $FF8A (65418) 


Description: The system vectors at address $0314 to $0332 (inclusive) are 
set to the default values. This routine should be called when you modified 
many of the vectors and want to set them back. This routine calls the 
following VECTOR routine with the carry cleared. 
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VECTOR 


Purpose: Copy or reset system vectors 
Address: $FF8D (65421) 


Description: This routine copies the 16 vectors at $0314 to the address 
defined by the X (low) and Y (high) registers, provided the carry flag is set. 
If the carry flag is cleared, the vectors at $0314 are loaded with the area 
given by the X and Y registers. 


Input parameters: .X, .Y, carry 

Example: 
LDX #S00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 


CLC ;CLEAR CARRY FOR COPY ($1000) ->($0314) 
JSR S$FF8D ;LOAD VECTORS 


SETMSG 


Purpose: Enable/disable DOS messages 
Address: $FF90 (65424) 


Description: The routine stores the value of the accumulator in the zero-page 
address $9D. If system messages should be printed, set bit 7 of the 
accumulator. If $9D is positive, system messages are inhibited. 


Input parameter: .A 


SECND 


Purpose: Send secondary address to LISTEN 
Address: $FF93 (65427) 


Description: The secondary address to be sent is passed in the accumulator. 
The routine outputs the contents of the accumulator on the serial bus as the 
secondary address. 


Input parameters: .A 
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Example: 
;SEND LISTEN 
LDA #SFO ;SECONDARY ADDRESS O FOR CLOSE 
JSR SFF93 ;SET SECONDARY ADDRESS 


TKSA 


Purpose: Send secondary address to TALK 
Address: $FF96 (65430) 


Description: This routine sends the secondary address given in the 
accumulator on the bus preceded by a TALK signal. 


Input parameter: .A 


MEMTOP 


Purpose: Set/get the memory top 
Address: $FF99 (65433) 


Description: If the carry flag is set, the maximum available memory location 
is returned in the X-register (low) and Y-register (high). If the routine is 
called with the carry cleared, the memory top is set with the two registers. 


Input parameters: .X, .Y (for cleared carry), carry 
Output parameters: .X, .Y (for set carry) 


Example: 
;Read the memory top 
SEC ;READ THE TOP 


JSR SFF99 ;GET TOP 

STX SFC ; STORE 

STY SFD ; STORE 

LDX #S00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 
CLC ;FLAG TO SET MEMTOP 
JSR SFF99 ;SET MEMORY TOP 
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MEMBOT 


Purpose: Set/get the memory bottom 
Address: $FF9C (65436) 


Description: Similar to MEMTOP, the lower boundary of the available 
memory is set with the two registers X (low) and Y (high) if the carry flag 
is cleared. If the carry flag is set, the memory bottom is read and returned in 
the two registers. 


Input parameters: .X, .Y (for cleared carry), carry 
Output parameters: .X, .Y (for set carry) 
KEY 


Purpose: Return key pressed 
Address: $FF9F (65439) 


Description: This routine is elementary to keyboard decoding. The keyboard 
is checked for a pressed key by means of the keyboard decoding table. Ifa 


pressed key is returned, the ASCII value is determined and placed into the 
keyboard buffer at ($034A). 


SETTMO 


Purpose: Set the time-out flag for IEEE 
Address: $FFA2 (65442) 


Description: The routine saves the value passed in the accumulator at 
address $0A0E as the timeout flag for the IEEE routines. In order to permit 
the timeout in the IEEE routines, bit 7 of the accumulator must be set. 


Input parameters: .A 
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ACPTR 


Purpose: Get a byte from the serial bus 
Address: $FFAS5 (65445) 


Description: The routine gets a byte from the serial bus. This character is 
returned in the accumulator. The status byte ST at $90 is set according to the 
action. 


Output parameter: .A 


CIOUT 


Purpose: Output a character to the serial bus 
Address: $FFA8 (65448) 


Description: This routine is counterpart of ACPTR. The character passed in 
the accumulator is output on the serial bus. Here too the status byte ST at 
$90 is changed according to the action. 


Input parameter: .A 


UNTLK 


Purpose: Send UNTALK on the serial bus 
Address: $FFAB (65451) 


Description: This routine is called when closing or redirecting an input 
channel. It silences a "talking" device. 


UNLSN 


Purpose: Send UNLISTEN on the serial bus 
Address: $FFAE (65454) 


Description: Corresponding to UNTALK, this routine shuts off a receiving 
device. This is done when closing or redirecting an output channel. 
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LISTN 


Purpose: Send LISTEN to a device 
Address: $FFB1 (65457) 


Description: A device on the serial bus is requested for input. The LISTEN 
signal is sent over the serial bus to do this. The device address of the 
appropriate device is passed in the accumulator. For example, a LISTEN is 
sent to a printer before characters are sent to it over the serial bus. If you use 
LISTEN, you must output the characters via the routine CIOUT (not via 
BSOUT!). Use the routine UNLISTEN to close the channel. Only one 
device may be active on the serial bus. To simplify all this, you can open 
and close channels in the operating system. BSOUT and BASIN then take 
care of sending LISTEN and UNLISTEN as well as TALK and UNTALK. 


Input parameter: .A 
Example: 
;Send LISTEN to printer 
LDA #$24 ;DEVICE ADDRESS FOR PRINTER AND 


LISTEN ON 
JSR $FFB1 


TALK 


Purpose: Send TALK to a device 
Address: $FFB4 (65460) 


Description: This routine sends the command TALK to a device. The device 
address is to be passed in the accumulator. The TALK command requests a 
device connected to the serial bus for talking, i.e. for sending information. 


Input parameters: .A 
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READST 


Purpose: Get the I/O status byte 
Address $FFB7 (65463) 


Description: The current system status is returned in the accumulator. If the 
RS-232 is active, the status byte is returned and immediately cleared in 
memory. If you need the status byte more often, save it somewhere. If a 
channel other than the RS-232 channel is open, the status byte is returned in 
address $90. 


Output parameter: .A 


SETLFS 


Purpose: Set file parameters 
Address: $FFBA (65466) 


Description: This routine is required to open a file. The logical file number 
is passed in the accumulator, the device address in the X-register, and the 
secondary address in the Y-register. The routine stores these values in the 
zero-page addresses from $B8 to $BA. 


Input parameters: .A, .X, .Y 


SETNAM 


Purpose: Set the filename parameters 
Address: $FFBD (65469) 


Description: Information for the filename is stored in the zero page in this 
routine. These specifications must all be made before the channel is opened. 
The length of the filename is passed in the accumulator, the low byte of the 
address at which the filename is stored in the X-register, and the high byte 
in the Y-register. Furthermore, you must pass with the SETBNK routine 
the configuration indices for the filename and the memory range to be 
processed. | 


Input parameters: .A, .X, .Y 
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Example: 
;Open one of the directory files on the disk 
LDA #SOC ;AREA IN RAM BANK 0O 
TAX ;FILENAME ALSO IN RAM BANK 0 
JSR SFF68 ;CALL SETBNK 
LDA #S01 ;LOGICAL FILENUMBER 
LDX #508 ;DEVICE ADDRESS 
LDY #$00 ;SECONDARY ADDRESS FOR READING 
JSR SFFBA ;SETFLS 
LDA #$01 ;LENGTH OF THE FILENAME 
LDX #S00 ;LOW BYTE OF THE ADDRESS AT WHICH 
LDY #$10 ;THE FILENAME IS STORED ($1000) 
JSR SFFBD ;OPEN - OPEN THE CHANNEL 


and at address $1000: 


01000 24 


OPEN 


Purpose: Open a file 
Address: $FFCO (65472) 


Description: The file defined by the routines SETNAM, SETLFS, and 
SETBNK is entered into the list of logical file numbers. Not until this is 
done can the logical file number be used for the routines CKOUT and 
CHKIN. A maximum of nine files can be open at one time. 


CLOSE 


Purpose: Close a logical file 
Address: $FFC3 (65475) 


Description: The logical file specified in the accumulator is closed. All 
stored values like the device address, secondary address, etc. are erased 
from the table. If an error is encountered, the carry flag will be set. 


Input parameter: .A 
Output parameter: carry 
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Example: 
;Example for CLOSE 
LDA #$01 ;CLOSE THE EXAMPLE FILE FROM SETNAM 
JSR SFFC3 ;CALL CLOSE 
BCS ERROR ;ERROR ENCOUNTERED 


CHKIN 


Purpose: Define a logical file as the input channel 
Address: $FFC6 (65478) 


Description: The logical file number to be used as the input channel is 
passed in the X-register. The given logical file number must have already 
been opened with the OPEN command. If the BASIN routine is called after 
the OPEN command, the input is not done from the keyboard but from the 
opened file; this can be from the disk drive. It should be noted that no 
CHKIN is required when reading from the keyboard because it is the 
standard input device. After a CLOSE or CLRCH, the keyboard is 
automatically again the input device. The carry flag is also used as the OK 
flag for this routine. 


Input parameter: .X 
Output parameter: carry 


Example: 
;Read the directory 
JSR DIROP ;OPEN 1,8,0,"$"(SELF-DEFINED ROUTINE) 
LDX #$01 ;LFN OF THE OPENED FILE 
JSR SFFC6 ;EXECUTE CHKIN 
JSR SFFCF ;BASIN--GET CHARACTER 


\ 


CKOUT 


Purpose: Define a logical file as the output file 
Address: $FFC9 (65481) 


Description: This routine defines a file passed in the X-register as the output 
file. It must have been previously opened properly. A file opened with 
OPEN 1,8,0,"$" and then defined as the output file with CKOUT would 
result in an error because this file was opened for reading and not for 
writing. After defining an output file, the screen is no longer the output 
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device -- the output file is. All characters output via BSOUT are sent to this 
device. The carry flag is used to indicate an error. If it is cleared, the 
operation was successful. 


Input parameters: .X 
Output parameters: carry 


CLRCH 


Purpose: Close input/output channel 
Address: $FFCC (65484) 


Description: This routine clears any input or output files defined with 
CHKIN and/or CHKIN. An UNTALK is sent to the input device and 
UNLISTEN is sent to the output device. The screen again becomes the 
output device and the keyboard the input device. The files are not closed. 
Neither input nor output parameters are passed. 


BASIN 


Purpose: Get a character from the input channel 
Address: $FFCF (65487) 


Description: The file opened and defined as the input file by CHKIN 
(otherwise the keyboard) returns a character in the accumulator. 


Output parameter: .A 


BSOUT 


Purpose: Output a character to the output channel 
Address: $FFD2 (65490) 


Description: The character passed in the accumulator is sent to the open file 
defined as the output file by CKOUT. If the screen is the output file 
(default), the ASCII character is converted to a printable POKE code (This 
is an extensive procedure. Those interested should look at the appropriate 
code in the C range of the kernal). | 
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Input parameter: .A 


Example: 
;Switch the 40/80 column mode 
LDA #$1B ;<ESC> 
JSR BSOUT ;SFFD2, OUTPUT CHARACTER | 
LDA #"X" ;<ESC>X TO EXCHANGE THE SCREEN STATUS 
JSR BSOUT ;OUTPUT 


(There is also a special routine to which you can jump.) 


LOADSP 


Purpose: Load a file into memory 
Address: $FFDS5 (65493) 


Description: Before a file can be loaded with LOADSP, the device, 
secondary address, filename, etc. must be defined by the routines SETTLES, 
SETNAM, and SETBNK. The address at which the file is to be loaded is 
passed in the X (low) and Y (high) registers. 


Input parameters: .X, .Y 


Example: 
;Load an overlay 
JSR PREP ;SETLFS, SETBNK, SETNAM, ETC. 
LDX #S00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 (LOAD ADDRESS) 
JSR SFFD5 ;LOAD FILE AT $1000 


SAVESP 


Purpose: Save memory toa file 
Address: $FFD8 (65496) 


Description: This routine saves a memory range to a file (disk, cassette). As 
with the LOADSP routine, you must first define the device address, 
secondary address, RAM bank, filename, etc. with the routines SETBNK, 
SETLFS, and SETNAM. The zero-page address at which the start address 
of the area to be saved is stored and passed in the accumulator. The end 
address of the range is passed in the X (low) and Y (high) registers. 
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genre 


Input parameters: .A, .X, .Y, zero page 


Example: 
;Save the range $1000 to $1100 
JSR PREP ;CALL SETLFS, SETNAM, SETBNK 
LDA #S00 ;LOW BYTE OF $1000 
STA SFC ;STORE IN ZERO PAGE 
LDA #510 ;HIGH BYTE OF $1000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;THE POINTER IS LOCATED IN SFC 
LDX #$00 ;LOW BYTE OF THE END ADDRESS $1100 
LDY #$11 ;HIGH BYTE OF THE END ADDRESS $1100 
JSR SFFD8 ;SAVESP--SAVE THE RANGE $1000-$1100 


SETTIM 


Purpose: Set the system clock TI 
Address: $FFDB (65499) 


Description: This routine sets the system clock TI, which is defined at 
address $A0. This clock is controlled by the kernal IRQ routine and is not 
very accurate. If want an accurate clock, use the timers in the two CIAs (see 
Chapter 3). The high-order byte of the 24-hour clock is passed in the 
Y-register. 


Input parameters: .A, .X, .Y 


Example: 
;Reset the system clock 
LDA #S$00 ;RESET MEANS 
TAY ;SET TO 0,0,0 
TAX ;ALL THREE REGISTERS TO ZERO 
JSR SFFDB ;SETTIM 


RDTIM 


Purpose: Read the system clock 
Address: $FFDE (65502) 


Description: This routine reads from the 24-hour clock and passes the three 
bytes in registers Y (highest-order), X, and the accumulator (lowest). 
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Output parameters: .A, .X, .Y 


Example: 
,;Read the 24-hour clock 
JSR SFFDE ;CALL RDTIM 
STY SFC ;STORE MSB 
STX SFD *;STORE MIDDLE BYTE 
STA SFE ;STORE LSB 


STOP 


Purpose: Poll the STOP key 
Address: $FFE1 (65505) 


Description: If the STOP key was pressed since the last IRQ call, the zero 
flag will be set and a CLRCH will be executed. If the STOP key was not 
pressed, the zero flag will be cleared. 
Output parameters: zero flag 
Example: 

;Check for STOP 


JSR SFFE1 ;STOP KEY PRESSED 
BEQ YES 7 PRESSED 


GETIN 


Purpose: Geta character from the keyboard buffer or RS-232 
Address: $FFE4 (65508) | 


Description: Gets a character from the defined input file. If no character is 
ready, the accumulator is returned with zero. 


Output parameter: .A 
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CLALL 


Purpose: Close all open files 
Address: $FFE7 (65511) 


Description: All of the files opened with OPEN are closed, actually CCALL 
deletes the files by clearing the table index--no CLOSE is actually 
performed. This can be particularly annoying for open disk files (WRITE 
FILE OPEN ERROR results). After erasing the logical files, a CLRCH is 
executed. CLALL should therefore be used with caution. 


UDTIM 


Purpose: Update system clock 
Address: $FFEA (65514) 


Description: This routine is usually called by the IRQ routine. The 
three-byte 24-hour clock is incremented by one unit. 


SCRORG 


Purpose: Get the size of the current window 
Address: $FFED (65117) 


Description: The routine SCRORG gets the current window values in the 
registers. After the call, the accumulator contains the maximum column 
number, the number of lines in the window is found in the Y-register, and 
the X-register contains the number of columns in the window. 


Output parameters: .A, .X, .Y 


PLOT 


Purpose: Get/set cursor position 
Address: $FFFO (65120) 


Description: The cursor position is either fetched or set based on the 


condition of the carry flag. The X and Y registers are the communication 
registers. The Y-register defines the line (the first line in the window is 
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zero) and the X-register the column of the cursor. If the carry flag is set, the 
current cursor position in the window is returned in the X and Y registers. 


_ Input parameters: .X, .Y, carry 


Example: 


;set an asterisk in the middle of the window 
JSR SFFED ;CALL SCRORG 


TXA COLUMN NUMBER TO ACC 

LSR A r,DIVISION BY TWO (MIDDLE) 

TAX r;AND AS COLUMN BACK TO X 

rYA .. ;LINE NUMBER TO ACC 

LSR A ;DIVISION BY TWO (MIDDLE) 

TAY ;AND AS LINE TO Y 

CLC ;CLEAR CARRY=SET CURSOR POSITION 


JSR SFFFO ;SET CURSOR POSITION 
LDA #"*" ;LOAD ACC WITH ASTERISK 
JSR SFFD2 ;AND OUTPUT 


IOBASE 


Purpose: Get the base address of the I/O area 
Address: $FFF3 (65123) 


Description: The address of the input/output area is returns in the X (low) 
and Y (high) registers. This address is always $D000 for the 128. For later 
expansions or movements, we advise you in order to maintain compatibility 
to integrate this routine into the software and make reference to it. 


Output parameters: .X, .Y 
Example: 
;start of the program 
JSR SFFD3 ;IOBASE 
STX SFD ,;OTORE LOW BYTE 
STY SFE ; STORE HIGH BYTE 
This address is referenced in the program as follows: 


STA (SFD),Y ;IN I/O AREA 
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There are some other routines in the kernal which can help save time 
and program memory. These routines are found particularly in the $CO00 
block of ROM and are used for input/output on the two screens. Here are 
some of the routines we feel are useful. 


CLRWIN 


Purpose: Clear the window (screen) 
Address: $C142 (49474) 


Description: If no window is defined, the entire screen is cleared. If a 


window is defined, only the screen area inside the boundaries of the 
window is erased. 


CURHOM 


Purpose: Cursor to HOME position in window 
Address: $C150 (49482) 


Description: The cursor is positioned in the upper left-hand corner of the 
window. If no window is defined, the cursor is placed in the upper 


left-hand corner of the screen. Note that position 0/0 always defines the 
upper left-hand corner of the window. 


GETLIN 


Purpose: Get an input character 
Address: $C258 (49752) 


Description: Characters are taken from the keyboard and displayed on the 
screen at the current cursor position until the <RETURN> key is pressed. 
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BSOUT SCRN 


Purpose: Output a character to the current screen 
Address: $C72D (50989) 


Description: This routine is the continuation of the BSOUT routine at 
$FFD2. The routine is faster since it does not have all of the checks that are 
built into BSOUT. The character is passed to the routine in the accumulator 
and output to the currently active screen--at the current cursor position. 


Input parameters: .A 


CLQIR 


Purpose: Clear the quote, insert, and reverse modes 
Address: $C77D (51069) 


Description: This routine clears the flags for the quote, insert, and reverse 
modes. It works somewhat faster than outputting the necessary control 


sequences via BSOUT. 


Here is a list of other important routines and their address: 


$C854 (51284) Cursor right in window 

$C85A (51290) Cursor down in window 

$C867 (51303) Cursor up in window 

$C875 (51317) Cursor left in window 

$C880 (51328) Enable second character set 

$C8BF (51391) Clear RVS mode 

$C8C1 (51393) SetRVS mode 

$C8C7 (51399) Enable underlining 

$C8CE (51406) Disable underlining 

$C91B (51483) Delete character to the left of the cursor 
$C93D (51517) Delete character under cursor 

$C94F (51535) Jump to tab 

$C980 (51584) Clear all tabs 

$C9O8E (51598) BELL - create bell tone 

$CA14 (51732) Cursor pos. defined left/top of window 
$CA16 (51734) Cursor pos. defined right/top of window 
$CA24 (51748) Define screen as window 

$CA52 (51794) Clear current line 
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$CA76 (51830) Clear from cursor to end of line 

$CA8B (51851) Clear from start of line to cursor pos. 

$CA9F (51871) Clear from cursor pos. to end of screen 

$CABC (51900) Scroll up 

$CAF2 (51954) Enable block cursor 

$CAFE (51966) Enable underline cursor 

$CBOB (51979) Cursor flash off 

$CB21 (52001) Cursor flash on 

$CB3F (52031) Invert 80-column screen 

$CB48 (52040) 80-column screen normal 

$CC27 (52263)  <space> at current cursor position 

$CC2F (52271) Character <acc> at current cursor position 

$CC4A (52298) Output character <acc>, <X>:color, <Y>:column to 
80-column screen (without moving the cursor) 

$CC6A (52330)  Get/set cursor position 

$CD2C (52524) SWAPPER - switch 40/80-column 


7.5 Tips & Tricks 


Naturally, this section cannot replace our book Tips & Tricks, but we 
want to explain to you the most important and/or useful things which we 
have found out. 


By use of these examples, you'll be able to see how to use the 


documented zero-page and ROM listings--since the information ultimately 
comes from these listings. 


7.5.1 Disabling the STOP key 


Frequently you may want to prevent the user from interrupting the 
program by pressing the STOP key--in many situations this can be 
dangerous if the STOP key is pressed accidentally. 


To solve the problem, we look in zero page. Here, at address $0300 is 
a table of jump commands for the most important kernal routines. 
Practically speaking, this area is an interface between the programmer and 
the operating system, because it allows the programmer to cause other 
things to happen simply by redirecting the jump commands (usually to a 
routine he writes). 
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The address for the kernal STOP routine is found at address $0328--it 
points to $F66E. The current status of the STOP key is read from zero-page 
address $91 at this address $F66E. Address $91 is always loaded with the 
latest condition by the IRQ routine. If we skip this test, we achieve the 
effect that pressing the STOP key is no longer recognized by the STOP test 
routine. We need only modify the address at $0328. We write the low byte 
of the address of the command following the STOP routine to this 
address.We do this in BASIC with the following POKE: 


POKE DEC(''0328"),112 : REM DISABLE STOP KEY 


The vector $0328/$0329 no longer points to $F66E but to $F670. The 
operating system no longer recognizes the STOP key, not during a 
program, nor while listing, or many other actions. 


We have now done what we set out to do. There is a still a bug in the 
system, however. If someone is clever enough to press the STOP and 
RESTORE keys at the same time, our program will be interrupted anyway! 
The STOP test routine at address $F66E is also called in the NMI routine, 
though it does not use the vector $0328, so pressing the STOP key will be 
recognized. 


7.5.2 Disable STOP-RESTORE combination 


If this combination is pressed on the keyboard, the NMI service routine 
is called. NMI stands for Non-Maskable Interrupt--an interrupt is generated 
which cannot be disabled with the SEI command. 


But there is a vector for this routine also in the zero-page area. The 
vector responsible for the NMI routine is found at address $0318 and points 
to the NMI routine in the kernal at address $FAFO. 


If you do not want a BASIC warm-start to be executed when the 
STOP-RESTORE key combination is pressed, you must set the NMI vector 
to the end of the NMI routine. It is advisable to set the vector to $FA62, 
since this jumps to the IRQ return routine, reseting the registers and 
executes an RTI. — 


The following BASIC command is necessary to redirect the NMI 
routine: 
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POKE DEC('0318"),98 : REM REDIRECT NMI 


After you have integrated this POKE command into your program 
(together with the STOP-key disable) it is impossible for anyone to exit 
your program unless they build a RESET switch on the user or expansion 
port, but this too can be intercepted... 


7.5.3 The IRQ vector 


The IRQ routine in the kernal is called every 1/60 of a second. The CIA 
is responsible for generating this interrupt with its timers. The vector for 
the IRQ routine is found at address $0314 and normally points to the kernal 
address $FA65. If you want to link into the IRQ routine, for your own 
sprite control, or to change the border color every second, etc., in can be 
done in this way. 


Redirect the IRQ vector to your own routine and jump to the 
"remaining" kernal IRQ routine after executing yours. But be careful when 
you redirect the IRQ vector. The interrupts must be disabled when changing 
the vector or the computer may crash. 


Here is a short example program which changes the border color of the 
40-column screen by one color code every 60th IRQ call. 


O2000 78 SEI ;Disable interrupts 
02001 A9 0C LDA #SOC ;Store low byte of new 
02003 8D 14 03 STA $0314 ;IRQ routine in vector 
02006 A9 20 LDA #$20 ;Store high byte of new 
02008 8D 15 03 STA $0315 ;IRQ routine in vector 
O200B 58 CLI ;Enable int. again 
O0200C E6 FD INC SFD ;Increment counter 
O200E A5 FD LDA SFD ;Get counter 

02010 C9 3C CMP #S3C ;60 already? 

02012 DO 07 BNE $201B ;Not yet reached 

02014 EE 20 DO INC $D020 ;Increment border color 
02017 A9 00 LDA #$00 ;And counter again 
02019 85 FD STA SFD ;Set to zero 

0201B 4C 65 FA JMP SFA65 ;Remaining IRQ routine 


This routine is enabled by calling the enable routine at address $2000. 
This is done by: 
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SYS DEC("2000") 


Now the color of the border is changed at regular intervals. This is one 
example (even though trivial), of what you can do with the IRQ routine. 


7.5.4 Disabling the BASIC interrupt 


As we mentioned in the chapter on the VIC chip, it can be very 
annoying when the interpreter is always getting in the way. There is a way 
around this. The interrupts stop working if you tell the interpreter not to 
jump to the BASIC IRQ routine. This can be done at address $0A04. If bit 
0 is set, the BASIC IRQ routines for graphics and sound are executed. If 
we clear this bit, these routines will no longer be executed and the sprites 
will stop moving, etc. 


This is a welcome option for all machine language programmers who 
want to program the sprites themselves. The text/graphic mode is not 
affected by all of this; it is still switched automatically. This is because this 
switch occurs in the kernal IRQ routine. If, for example, you want to enable 
the graphic mode, but don't want to use the BASIC commands, you must 
either make corresponding changes in the zero-page addresses, or you must 
sneak into the kernal routine. 


To demonstrate the effect of this disabling, first define a sprite and 
enable it: 


SPRITE 1,1,2,0,1,1 : REM TURN SPRITE 1 ON 
MOVSPR 1, 90#9 : REM MOVE SPRITE 1 


Whatever your sprite may look like, it is now moving across the screen. 
If you now try to write to the VIC registers and change the appearance or 
the position of the sprite, you will see a brief flash on the screen and then 
the sprite will do what it wants or what the operating system wants. 


The sprites can be stopped once and for all by clearing bit O in address 
$0A04. This is done with the following instruction: 


POKE DEC ("0A04"), PEEK(DEC("0OA04")) AND 254 


The sprite stops where it is and moves no further. Now the VIC chip 
can be manipulated without interference. 
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7.5.5 Positioning the cursor 


You will often want to position the cursor at a given location on the 
screén/window from within BASIC. Unfortunately, there is no command 
which does this. You can only set the graphic cursor at a position X,Y by 
means of the LOCATE command. Of course this positioning is possible by 
outputting cursor-movement codes, but this method is: 


a) slow, 
b) memory-consuming, and 
c) cumbersome 


We offer you a way of positioning the cursor by calling the kernal 
routine that sets the cursor position. Normally the cursor line is passed in 
the X-register and the column in the Y-register. You can also pass these 
parameters as (optional) parameters in the SYS command. 


As you can probably gather from the kernal listing, the routine for 
setting the cursor position is found at address $CC6A. Since we want to set 
the cursor position and not determine it, we can skip the carry-flag test at the 
start of the routine. We will use address $CC6C as the entry point. ) 


The syntax for positioning the cursor looks like this: 
BANK 15: SYS DEC("CC6C"),,<line>,<column> 


The first line and the first column in the window is line zero, column 
zero. The two commas are required before the <line>. 


As an example of how you can make use of this positioning routine, 
take a look at the following program: 


10 REM *** DEMO PROGRAM FOR CURSOR POSITIONING *** 
30 CL=40-40* (PEEK (DEC ("D7") ) :REM 40 OR 80 COL? 

40 PRINT CHRS$(147);: REM CLEAR SCREEN 

50 X=INT(RND (TI) *24): REM LINE 

60 Y=INT(RND (TI) *CL) : REM COLUMN 

70 BANK 15: SYS DEC("CC6C"),,X,Y 

75 PRINT "xX" 

80 GET GS: IF GS="" THEN 50 
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7.6 The Z-80 


As you already know, there is a Z-80A built into your C-128. Most 
Z-80 fans will be interested in finding out how to switch this processor on. 
Here's a quick answer. The currently-active processor can be selected in bit 
O of the mode configuration register. If this bit 0 is set, the Z-80 is 
activated. A set bit means that the 8502 is working. If one switches to the 
Z-80 in this manner, the computer will never return from this mode. 


In the C-128 there is a ROM containing 4K of Z-80 code. After 
power-up or RESET this Z-80 code is executed, meaning that the Z-80 is 
enabled. This ROM is located at $D000, but is mirrored down to $0000 for 
the Z-80. After a RESET, the Z-80 begins its work at address $0000. This 
ROM cannot be read by software. 


In section 7.6.1 the first part of this ROM disassembled. We will not 
present a complete listing. It should be noted that these 4K bytes do not 
really have anything to do with CP/M itself, but only with booting CP/M. 


After the configuration ($3E) has been selected, a test is made to see if 
there is a cartridge ((GAME or /EXROM line set) in the expansion port. If 
this is the case, control is passed to this cartridge. First, the 64 mode is 
enabled and the 8502 is activated. 


If there is no cartridge in the expansion port, the Commodore key is 
tested. If you hold down the Commodore key during power-up or RESET, 
the 64 mode is entered directly, without making a BOOT attempt and 
without having to enter GO 64. If the Commodore key is not pressed, the 
various memory areas are copied, in the common area at $FFDO. It should 
be noted that the Z-80 as well as 8502 code is copied. After both routines 
are copied, control is passed to the (just-copied) routine at $FFEO. In this 
routine the 8502 is enabled and control is again passed to our "normal" 
operating system. If the Z-80 is enabled by the programmer, processing 
continues here (at address $FFEE). And it is precisely here that we find the 
interface. If you replaces the RST 8 with a JMP command, the Z-80 can be 
made to execute your own Z-80 program. 


Let's go through a very simple example. We want to enable the Z-80 


and change a memory location through Z-80 assembly language. This 
machine language program is to be located at address $3000: 
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3E 3F LD A,$3F ;Select configuration 

32 00 FF LD (SFFOO),A;Set configuration 

3E 1E LD A,$1E ;Any value 

32 00 22 LD ($2200) ,A;Write in mem loc $2200 

C3 EO FF JMP' SFFEO ;And enable the 8502 again 


We'll enter the Z-80 codes at address $3000 with the monitor. Use the 
M command to do this. 


M 3000 
>03000: 3E 3F 32 00 FF 3E 1E 32 00 22 C3 EO FF 


We must not forget to change the jump at $FFEE or otherwise the 
(normal) RST 8 will be executed. A jump to our routine must be placed at 
address $FFEE. We must insert the following three bytes at this address: 


M FFEE 
>FFEE: C3 00 30 


Now we must write a routine in 8502 code which enables the Z-80 and 
continues after the return from the Z-80 execution. The routine looks like 
this: 


SEI ;Disable interrupts 

LDA #S$3E ;Configuration byte 

STA SFFOO ;Store 

LDA #SBO ;Enable Z-80 in the 

STA S$D505 ;Mode configuration register 
NOP ;Delay (buffer) 

BRK ;End, return to monitor 


Enter this routine with the assembler at address $2100. Set the memory 
location $2200 to zero with the monitor and start the whole routine with: 


G 2100 


The computer returns immediately to the monitor. Read memory 
location $2200 and you will see that this address contains the value $1E. 
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7.6.1 The Z-80-ROM 


Here is the first section of the Z-80 ROM, with comments: 


KAKKKKKAKKKKKKKKKEKKEKKKKKKKKKKKKRKKKKEKKKK RST OO (cold start) 


0000: 3E 3E LD A,$3E Configuration byte(RAM,I/O) 
0002: 32 00 FF LD (SFF00),A_ Inconfiguration register 
0005: C3 3B 00 JP $003B Remainder of cold start 


KKK KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKAKKKKKKKKKK RST 08 


0008: 31 77 3C LD SP,$3C77 
OOOB: 3E 3F LD A,S3F 


O000D: C3 8c 01 JP $018C Remainder of RST 08 


KKK KKK KK KKK KKK KKK KKK KKKKKKEKKKKKKKKKKKKKKK RST 10 


0010: El POP HL Return address from stack 
0011: 6E LD L, (HL) Low byte of the return address 
0012: C3 20 00 JP $0020 Jump to RST 20 routine 
0015: 00 NOP Fill bytes 

0016: 00 NOP 

0017: 00 NOP 


KAKKKKKKKKKKKKKKKKKEKKEKKKKEKKKKKKKKKKKKKKKKK RST 18 


0018: El POP HL Return address from stack 
0019: 6E LD 1, (HL) Low byte of return address 
001A: C3 28 00 JP $0028 Jump to RST 28 routine 
001D: 00 NOP Fill bytes 

OO1E: 00 NOP 

001F: 00 NOP 


KKKKKKAEKKKKKKKKAKAKKKKKKEKKKKKKKKKK KKK KKKKKKEKK RST 20 


0020: 3A OF FD LD A, (SFDOF) 
0023: AT AND A 
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a SSS SSS SSS SS 


0024: 28 02 JR Z,$+4 >$0028 
0026: 2C INC L 
0027: 2C INC L 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKK RST 28 


0028: 26 O1 LD H,$01l 


QO02A: TE LD A, (HL) 
002B: 23 INC HL 
002C: 66 LD 4H, (HL) 
0O02D: 6F LD L,A 
O02E: E9 JP (HL) 
0O02F: 00 NOP 


KRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK RST 30 


0030: 30 35 JR NC,$+55 >$0067 
0032: 2F CPL 

0033: 31 32 2F LD SP,$2F32 

0036: 38 35 JR C,$+55 >$006D 


KKKKKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKK RST 38 


0038: C3 FD FD JP $FDFD Continue RST 38 at $FDFD 


KHKKKKKKRKE KKK KKRKKKKKEKKEKERKERKEKEKKKKKKKKKKEKK RST 0 Contn'd 


003B: 01 2F DO LD BC,$D02F ‘Register 47 of VIC Chip 


(keyboard) 
003E: 11 FC FF LD DE,$FFFC Write $FF in the keyboard 
0041: ED 51 OUT (C),D No extension keys 
0043: 03 INC BC Register 48=clock register 
0044: ED 59 OUT (C),E Set to $FC -> 1 MHz mode 
0046: 01 05 D5 LD BC,$D505 Mode config. register 
0049: 3E BO LD A,$BO Test /EXROM and /GAME 
004B: ED 79 OUT (C),A Enable 128 mode 
004D: ED 78 IN A, (C) Mode config. register 
O04F: 2F CPL Read again and negate 
0050: E6 30 AND $30 /EXROM or /GAME set? 
0052: 28 05 JR 2Z,$+7 >$0059 No, then no cartridge 
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errr ee ce SS nn 


KAKKKKKKKKKKKKKKKAAKKKK KKK KKKKKKEKK Enable 64 mode and pass 


0054: 
0056: 
0058: 
0059: 
005C: 
OO5E: 
0060: 
0061: 
0063: 
0065: 
0066: 
0068: 
0069: 
OO6A: 
O06C: 
OO6D: 
OO6E: 
0070: 
0072: 
0073: 
0075: 
0077: 
OO7A: 
007C: 
OO7F: 
0082: 
0084: 
0085: 
0087: 
0088: 
0089: 
OO8A: 
008C: 
OO8F: 
0092: 
0095: 
0097: 
OO9A: 


3E 
ED 
C7 
01 
3E 


Fl 
719 


OF 
08 
719 


719 
03 


719 


19 


TE 
719 


78 
20 
05 
D8 
B4 
OA 
OB 


719 


F8 
1A 
00 
08 
BO 
E5 
DO 


DC 


D5 


OF 
D5 


OD 
11 
00 


OE 
FF 


Control to the cartridge 
LD A,SF1 Enable 8502 and select the 
OUT (C),A 64 mode 
RST $00 And execute cold start 
LD BC,spcoF Select CRB reg. in CIA1 
LD A,$08 And then stop 
OUT (C),A Timer B as well as 
DEC C Timer A of 
OUT (C),A CIA 1 
LD C,$03 DDRB--data direction reg. 
XOR A For port B: Set all bits 
OUT (C),A to Input 
DEC C Pointer to DDRA and 
DEC A Put all bits to 
OUT (C),A Output. 
DEC C Decrementing BC causes it 
DEC C to Point to port A 
LD A,$7F Write $7F to port A (See 
oU (C),A. also Keyboard matrix) 
INC BC Pointer to port B (input) 
IN A, (C) And read 
AND $20 Mask out Commodore key 
LD BC,$D505 Pointer for mode config reg 
JR Z,$-38 >$0054 Key pressed> 64 mode 
LD HL,SOFB4 Load the MMU reg. with the 
LD BC,SD50A Values at 
LD D,$0B SOFAA 
LD A, (HL) Note that the 
OUT (C),A 11 MMU registers 
DEC HL Are loaded with the values 
DEC C At $0FB4 downwards! 
DEC D 
JR Nz,$-6 >$0084 End of the loop 
LD HL,$0D1A Copy the area from $OD1A 
LD DE,$1100 To$1100 
LD BC,$0008 Copy eight bytes 
LDIR (8502 code!) 


LD HL, SOEE5 
LD DE, SFFDO 
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009D: 01 1F 00 LD BC,$001F  Areaat $FFDO 
OOAO: ED BO LDIR Copy 31 bytes 

OOA2: 21 00 11 LD HL,$1100 $1100 as jump vector 
OOA5: 22 FA FF LD (SFFFA),HL Copy jump vector in 
OOA8: 22 FC FF LD (SFFFC),HL All four addresses 


OOAB: 22 FE FF LD (SFFFE),HL Including address 
OOAE: 22 DD FF LD (S$FFDD),HL $FFDD (just copied!) 
00B1: C3 EO FF JP S$FFEO And jump to the Z-80 part 


The following section is copied to $FFDO at the start and contains 8502 
code to switch over to the Z-80 mode: 


KKKKKKKKAKKKKEKKKKKKKKERKEKK also copy to $FFDO 


OEE5: 78 SEI Disable interrupts 

ORE6: AQ 3E LDA #$3E Configuration index 

OEE8: 8D 00 FF STA SFFOO Set configuration index 
OEEB: A9 BO LDA #$BO0 Enable Z-80 

OEED: 8D 05 D5 STA $D505 Write to mode config. register 
OEFO: EA NOP Delay 


OEF1: 4C 00 30 JMP $3000 Jump tocontinuation 
OEF4: EA NOP 


The jump at address $OEF1 is changed or replaced by a RETURN in 
most cases. 


The following section--again in Z-80 mnemonics--is also copied to 
$FFEO. The RST 0 routine jumps to this address when it is done. Then the 
computer is again in the 8502 mode. If the Z-80 is re-enabled, the Z-80 
continues at precisely the same location (NOP). 


KKKKKKKKKEKKKKKKKKKKKRKKEKEKE This area is copied to $FFEO 


OEF5: F3 DI Disable interrupts 

OEF6: 3E 3E LDA #$3E Configuration index 

OFF8: 32 00 FF STA $FFOO Into configuration register 
OEFB: 01 05 D5 LD BCc,$D505 Mode configuration register 


OEFE: 3E Bl LD A,$B1 Enable 8502 

OFO0: ED 79 OUT (C),A Into mode config. register 
OF02: 00 NOP Delay 

OFO3: CF RST $08 Continuation 
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The address $0F03 is found at address $FFEE after the copy. If you 
want to run your own Z-80 program, you must define a jump to your 
routine at this point. In our example, our Z-80 program is located at address 
$3000. We must then branch to this routine at address $FFEE: 


FFEE: C3 00 30 JMP $3000 branch to routine 


To enable the Z-80 in 8502 assembly language, you should call the 
routine at address $FFDO. To enable the 8502 in Z-80 assembly 
language,you should call the routine at $FFEO to enable the 8502 when the 
Z-80 is running. 


7.7 Boot Sector and Boot Routine 


Those of you who have worked with an IBM PC are well aware of the 
advantage of a boot sector. The first thing to clarify is what a "boot" has to 
do with a modern computer like the C-128. The answer is not a difficult 
one. As an article of clothing, the boot is the "lowest part" of a person. It 
has the actual contact to the ground on which we walk and stand. The boot 
sector of a computer is similar. It is also the lowest part of a program, the 
connection between the computer program and the machine. 


When you turn your C-128 on, you will notice that the disk drive 
(assuming you have one) makes some noises and then is quiet. Even when 
you have inserted a disk, the disk drive always runs before the computer 
responds. 


The reason for this action is that the computer tries to load this so-called 
“boot sector". This sector can be used to load a program as soon as the 
computer is turned on, without the user having to press a single key. The 
boot sector can also be a program of its own, which is then started 
automatically. This sector has many uses, but in order to make full use of it, 
it is important to be familiar with the internal structure of the sector and the 
action of the boot routine. 


Since the boot routine is controlled by the operating system and cannot 
search the entire diskette for such a sector, there is only one pre-determined 
place on the diskette that can be used as a boot sector. This is: 


Side 1, track 01, sector 00 
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But be careful since this sector is also physically the first data block on 
a diskette, it's possible that this space is already used by other files. Before 
you install a boot sector on a diskette, you should always check to see if this 
sector is already occupied. 


In order to be able to understand the makeup of the boot sector, you 
should become familiar with the operation of the boot routine. This kernal 
routine performs the following steps: 


1) A block-read command to track 1, sector 0 is constructed in the DOS 
buffer of the expanded zero page. 


2) The command is executed and the block read (provided a formatted disk 
is in the drive) is loaded into the cassette buffer. 


3) The first three bytes of the block are checked to see if they contain the 
required identification code for a boot sector. This identification code is 
CBM. If this code is not present, the boot routine is stopped. 


4) The four bytes following the CBM code are loaded into four zero-page 
pointers. Generally these 4 bytes are set to the value $00. The first two 
bytes can contain a starting address, which has nothing to do with the 
address at which the program is to be loaded. The third byte is the 
corresponding configuration index of the start address. But all of the 
first three entries are ignored if the fourth byte contains the value $00. It 

‘contains the number of blocks, in addition to the boot sector, that are to 
be loaded from the disk. 


5) Independent from whether the block counter in the boot block is set or 
not, the bytes following these four address and control bytes are read 
and displayed on the screen via the BSOUT routine. Here the screen 
can be cleared or an appropriate boot-up message can be displayed. 
This character output continues until the computer comes across a byte 
with the value $00. 


6) Now the control bytes read in step 4 have a meaning. If the block 
counter is set to zero, this routine is skipped. If this is not the case a 
new command string is formed in the DOS buffer which instructs the 
drive to load another boot block from the diskette. The determination of 
this boot block is quite simple. The sector number is incremented by 1. 
If the sector number is greater than 20 (there is a maximum of only 21 
sectors per track, numbered 0-20), the track number is incremented by 
1 and the sector number is reset to 0. A block-read command to read 
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7) 


8) 


9) 


this block is executed, whereby the block read is stored at the address 
and configuration created by the first three bytes. The memory address 
of the following boot blocks is incremented and the block counter is 
decremented by 1. This is done until the block counter is counted down 
to zero. 


The boot routine then returns to the code following the text constants (if 
present) in the original boot sector in the cassette buffer. A filename, as 
indicated in the disk directory, may reside here. Except the fact that the 
characters of the filename are not displayed on the screen, all of the 
bytes here are read until the boot routine encounters the $00 terminating 
code. The length of the filename is recorded in a counter. 


Now we come to another option. If the length of the filename in the 
counter is a value other than zero, the characters "0:" are prefixed to the 
filename. Then the filename counter is incremented by 2, and a branch 
is made to the kernal LOAD routine in order to read this program into 
memory. If this happens, or if the length of the filename is zero, the 
boot routine goes back to behind the code $00 indicating the end of the 
filename. 7 


The bytes following the filename are interpreted as a machine language 
program and the boot routine passes control to this program. From this 
point on, the programmer is responsible for starting the program 
loaded, or for loading another program, or for branching to another of 
the boot blocks. | 


If you make note of the above steps when creating your own boot 


sectors, you will soon see that it is not difficult, provided you know what 
the operating system expects. Here again are the most important points and 


instructions: 

Bytes 0,1,2 : CBM identification code 

Bytes 3,4: Memory address for the following boot sectors 

Byte 5: Configuration index for the following boot sectors 
Byte 6: Block counter for the number of following boot sectors 


Byte 7 to 1st terminating code ($00): boot message 
Name of the program to load, followed by the second terminator ($00) 
Your own machine language program entry 


Address of the boot sector: Side 0, track 1, sector 0 
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The ROM listing is probably the most important tool for the real 
machine language programmer. For those of you who don't know what we 
mean by the term "ROM listing," it is simply this; the operating system is 
found in ROM. If this operating system is disassembled, the result is called 
a ROM listing. 


The real art is not in reading the operating system and disassembling 
it, but in documenting it. The documentation should make it simpler for the 
reader to make use of the individual routines. You can find more 
information about the most important kernal routines in Chapter 7. 


The entire operating system comprises a total of 44Kbytes in the 
Commodore 128. 28K of this is for the BASIC and the other 16K is for the 
kernal. This book documents the kernal. A complete documentation of the 
whole 44K would far exceed the capacity of a single book. 


The kernal contains the most important elementary routines which the 
computer needs to display characters on the screen, decode the keyboard, 
control the cassette recorder, etc. 


Below are some of the abbrevations used in the the ROM listings. 


pntr. pointer disp. display 
krnl. _ kernal addr. address 
w/ with f/ from 

clr clear dev. device 
acc. accumulator SYS. system 
char. character subt. subtract 
inc. increment dec. decimal 
decr. decrement Z-P _—s zero page 
y-reg. y-register X-reg. x-register 
rout. routine # number 
prgm program ctrl. control 
cmd. command max. maximum 


crsr. cursor bnk. bank 
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8.1 ROM Listings sJavis@ ft KY for 


KRKEEKKKEKKKEKEKEKKEKREKRKEKEKKKKKKKKKKK 


BOOOQ: 
BOO3: 
BOO6: 
BOOS: 


4C 21 BO 
4c 09 BO 
4C B2 BO 
20 7D FF 


JMP 
JMP 
JMP 
JSR 


$B021 
SB009 
SBOB2 
SFF7D 


KKEEKKEKKEKKKKKEKKEKKKKEKKEKKKKKKKEKK 


BOOC: 


OD 42 52 45 41 4B 07 00 


KKKKEKKKKEKKEKEKEKKKEKEKKKKKKKKKKKKK 


BOQ14: 
BO15: 
BO17: 
B019: 
BOA: 
BO1C: 
BO1D: 
BOF: 


68 
85 02 
A2 05 
68 
95 03 
CA 
10 FA 
30 25 


PLA 
STA 
LDX 
PLA 
STA 
DEX 
BPL 
BMI 


* $02 


# $05 


* $03,X 


$B019 


$B046 


KKEEKEKEKKREKKEKKKKEKKKKKKKKKKKKKKKK 


BO21: 
B023: 
B026: 
B028: 
BO2C: 
BO2E: 
B030: 
BO32: 
B034: 
BO36: 
B038: 
BO3A: 


AQ 00 
8D 00 FF 
85 06 
85 07 
85 05 
AY 00 
AO BO 
85 04 
84 03 
A9 OF 
85 02 
20 7D FF 


LDA 
STA 
STA 
STA 
STA 
LDA 
LDY 
STA 
STY 
LDA 
STA 
JSR 


# $00 
SFFO0O 
x $06 
$07 
$05 
$00 
SBO 
$04 
$03 
SOF 
$02 
SFF7D 


+ He + + HE HE HF 
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Monitor entry vectors 
Regular monitor entry 
Monitor BREAK entry 
Exmon monitor entry 

Kernal PRINT: string output 


Initial monitor message 
produced by BREAK entry 


<C/R> BREAK <Bell> 


Monitor initalization after 
BREAK entry 
Place BANK no. on stack in 
appropriate zero-page byte 
Get the contents of x-reg, y-reg, 
accumulator, processor status 
& program counter from stack & 
put in corresponding zero-page 
bytes. 
Jump to general initialization 


Initialization for regular entry 


Load configuraton register with 
$00 and enable all system ROMs 
Clear zero-page memory for acc. 
Clear Z-P memory for x-reg 
Clr memory for processor status 
Load Acc.- lo-addr for monitor 
Load Y-reg with hi-addr monitor 
Acc in memory: prgm counter lo 
Y-reg in memory: prgm cntr hi 
Set Z-P memory for BANK# at 
$0F-Krnl1+BASIC,RAM 0, I/O 
Kernal PRINT: string output 
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KKK KEKE KE KAKA KKK KKKKKKEK KK AK Text constants for initial monitor 
message 


BO3D: OD 4D 4F 4E 49 54 4F 52 <C/R> MONITOR 
B045: 00 


KKKKKKKKKKKKKKKKKKKKKKEKKKEKKKER General monitor initalization 
BO046: D8 CLD Reset decimal mode 
BO047: BA TSX Store stack pntr in X-reg 
BO48: 86 09 STX * $09 and in memory for stack pointer 
BO4A: A9 CO LDA # $CO0 Sys/control messages enabled 
BO4Cc: 20 90 FF JSR S$FF90 Kernal SETMSG:Sys/ctri-messages 
BO4F: 58 CLI All system interrupts enabled 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Monitor command: R 

(Register contents) 
B050: 20 7D FF JSR S$FF7D Kemal PRINT: output string 


KHKKEKKKKKEKKEKKEKKKKKKKKKKKEKKKEKEKE Text constants for processor 
memory 


B053: OD 20 20 20 20 50 43 20 C/R PC SR AC XR YR SP C/R 
BO5B: 20 53 52 20 41 43 20 58 

B063: 52 20 59 52 20 53 50 OD 

BO6B: 3B 20 1B 51 00 ; <Esc - Q> 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKK Output contents of registers, st 
| stacks, & prgm cntr status 


BO70: A5 02 LDA * $02 Get current BANK # in acc. 
BO72: 20 D2 B8 JSR  S$B8D2 Acc.= 2-byte ASCII: hi=A,lo=X 
BO75: 8A TXA ASCII for lower nibble in Accu 
BO76: 20 D2 FF JSR $FFD2 Kernal BSOUT: output a char 
BO79: A5 03 LDA * $03 Z-P memory for PC hi in accu 
BO7B: 20 C2 B8 JSR $B8C2 Acc in 2-byte ASCII and output 
BOVE: AO 02 LDY # $02 Displ. points to ZP byte - PC Lo 
BO80: B9 02 00 LDA $0002,Y PC Lo, P, A, X, Y, Sin Accu 
BO83: 20 A5 B8 JSR _ S$B8A5 Acc output as 2-byte 

7 ASCII+<BLANK> 
BO86: C8 INY Increment displ. 
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B087: CO 08 CPY # $08 
B089: 90 F5 BCC $B080 
BO8B: 20 B4 B8 JSR SB8B4 
BO8E: A2 00 LDX # $00 
BO90: 86 7A STX * STA 


BO92: 20 CF FF JSR SFFCF 
B095: 9D 00 02 STA $0200,X 


BO98: E8 INX 

BO99: EO Al CPX # SA1 
BO9SB: BO I1F BCS $BOBC 
BOSD: C9 OD CMP # SOD 
BOSOF: DO Fl BNE $B092 
BOA1L: AJ 00 LDA # $00 


BOA3: 9D FF 0Q1 STA SO01FF,X 
BOA6: 20 E9 B8 JSR SB8E9 


BOAS: FO EO BEQ SBO8B 
BOAB: C9 20 - CMP # $20 
BOAD: FO F7 BEQ SBOA6 
BOAF: 6C 2E 03 JMP  ($032E) 
BOB2: A2 15 LDX # $15 
BOB4: DD E6 BO CMP SBOE6,X 
BOB7: FO 0C BEQ $B0C5 
BOB9: CA DEX 

BOBA: 10 F8 BPL S$BOB4 


BOBC: 20 7D FF JSR S$FF7D 


KKEEKEKKKKKKKEKKKKEKKKKKKKEKKKKKKKK 


BOBF: 1D 3F 00 


KREEKEKKKKKKEKEKKEKRKKEKKKKKKKKKKKKEK 


BOC2: 4C 8B BO JMP S$BO8B 


KKKEEKEKKEKEKKEKRKEKKKKKKKKKKEKKKKKKEKEK 


BOC5: EO 13 CPX # $13 
BOC7: BO 12 BCS $BODB 
BOC9: EO OF CPX # SOF 


196 


Bytes $04-$09 already output? 
no, then read next byte 
Linefeed + clear rest of line 
Displacement pntr, input buffer 
reset to 0 
Kernal BASIN: read out char 
& put in monitor input buffer 
Displ. increment to input buffer 
Have 160 chars been printed? 
yes, then output error message 
<RETURN> entered? 
no, then wait for next character 
When <RETURN> entered,mark 
command-string end with $00. 
Test input buffer for cmd end, 
If <:>,<?>, cmd end, wait input. 
Was character a <SPACE> ? 
Read next character. 
Vector to MONITOR routine 
Number of keywords in X-reg 
compared with keyword table. 
If found, go to keyword table 
pointer -- decrement by 1, until 
entire table is searched 
Kernal PRINT: output 


? constant for monitor error 
messages 
<Crsr Right> ? 


Return to input wait loop 
Jump to input wait loop 


Establish monitor command 
addresses 


Is keyword <L>, <S>, <V>? 
yes, then perform task 
Is keyword a conversion char? 
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BOCB: BO 13 BCS S$BOEO 
BOCD: 8A TXA 

BOCE: OA ASL A 

BOCF: AA TAX 

BODO: BD FD BO LDA $BOFD,X 
BOD3: 48 PHA 

BOD4: BD FC BO LDA S$BOFC,X 
BOD7: 48 PHA 

BOD8: 4C A7 B7 JMP $B7A7 


KKEKKEKKKKKKKKEKKKEKKKKKKKKKKKKKKK 


BODB: 85 93 STA * $93 
BODD: 4C 37 B3 JMP $B337 
BOEO: JMP SB9B1 


4C Bl B9 


KKEKKEKKKKKKKKKKKKKKKKEKKKKKKEKK 


BOE3: 6C 00 OA JMP (S$0A00) 


KEKKKKKKKKKKKKKKKKKKEKKKKKKKKKK 


BOE6: 41 43 44 46 47 48 4A 4D 
BOEE: 52 54 58 40 2E 3E 3B 24 
BOF6: 2B 26 25 4C 53 56 


KKEKKKKKKKKKKKKKKKKKEKKKKEKKKEKSK 


BOFC: 05 B4 (SB406) 
BOFE: 30 B2 ($B231) 
B100: 98 Bo (SB599) 
Bi02: DA B3 (SB3DB) 
B104: D5 Bl ($B1D6) 
B106: CD B2 (SB2CE) 
B108: DE Bl (SB1IDF) 
B10A: 51 Bl ($B152) 
B1l0c: 4F BO ($B050) 
B10E: 33 B2 ($B234) 
B110: E2 BO (SBOE3) 
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($,+,&,%) YES--then do task. 
Keyword number to accu and 
multiplied by 2 


This value as offset in X-reg 


Monitor routine (hi) addr. got 

& treated as quasi-RTS on stack. 
Monitor routine (hi) addr. got 

& treated as quasi RTS on stack. 
Command parameter utilization. 


Release LSV and conversions 


Store char of command keyword 
Execution of L,S,V commands 
Execution of conversion chars. 


Monitor command: X (Exit) 


Vector: BASIC warm-start 
($4003) 


Monitor keywords 


ACDFGHJIM 
RTX@.>;$ 
+&%LSV 


Addresses of monitor 
commands (-1) 


A = Assemble 
C = Compare 
D = Disassemble 
F = Fill 

G =Goto 

H = Hunt 

J = Jump 

M = Monitor 
R = Register 
T = Transfer 
X = Exit 
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B1l12: 
B114: 
B116: 
B118: 


KKKEKKEKKKKKEKKKKEKKEKKKKKKKKKKKKK 


BL1A: 
B11D: 
B1I1F: 
B121: 
B122: 


B125: 
B126: 
B129: 


KKEKKKKKKKEKKKKKKKKKKKKEKKKKKKKKK 


B12A: 
B12D: 
B12F: 


B132: 
B134: 
B135: 


B138: 
B139: 
B13C: 


KRAEKKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


B13D: 


8F BA 


05 


B4 


AA Bl 
93 Bl 


8E 
AG 
Ag 
78 
20 


58 
AE 
60 


8E 
A2 
8E 


A6é 
78 
20 


58 
AE 
60 


8E B2 OA 


B2 OA 
68 
66 


74 FF 


B2 OA 


B2 OA 
66 
BY 02 
68 


77 FF 


B2 OA 


($BA90) 
($B406) 
($B1AB) 
($B194) 


STX 
LDX 
LDA 
SEI 
JSR 


CLI 
LDX 
RTS 


STX 
LDX 
STX 


LDX 
SEI 
JSR 


CLI 
LDX 
RTS 


STX S$0AB2 


SOAB2 
* $68 
# $66 


SFF74 


$OAB2 


SOAB2 
# $66 
$02B9 


* $68 


SFF77 


SOAB2 


@ = Disc Command 
. = Assemble 

> = Modify Memory 
; = Modify Register 


LDA routine for acc from any 
bank FETVEC=bank byte of the 
OP3 operand 


X-reg temporary storage 

Bank no. taken from OP3 
FETVEC addr. for indfet in A 
All system interrupts disabled 
Kernal INDFET:LDA(fetvec), Y 
any bank 

All system interrupts enabled 
X-reg loaded with saved value 
Return from subroutine 


STA routine places acc contents 
in any bank. 
STAVEC=OP3 bank byte 


X-reg temporary storage 

Load STAVEC (lo addr) into 
X-reg and put Indsta routine in 
STAVEC 

Get bank # from 'from' OP3 

All system interrupts disabled 
Kernal INDSTA:STA(stavec), Y 
bank 

All system interrupts enabled 
X-Reg loaded with stored value 
Return from subprogram 


CMP routine--acc contents w/ 
specified bank. 
CMPVEC=OP3 bank byte 


X-reg temp. storage 
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B140: 
B142: 
B145: 
B147: 
B148: 


B14B: 
B14cC: 
B14D: 
B150: 
B151: 


A2 
8E 
A6 
78 
20 


58 
08 
AE 
28 
60 


66 
C8 02 
68 


JA FE 


B2 OA 


LDX 
STX 
LDX 
SEI 

JSR 


CLI 
PHP 
LDX 
PLP 
RTS 


# $66 
$02C8 
x $68 


SFFVA 


SOAB2 


KEKEKEKKKEKKKKEKKKEKKEKKKKEKKEKKKEKEKKE 


B152: 
B154: 
B157: 
BL5A: 
B15C: 
BLD5E: 
B160: 
B162: 
B165: 
B167: 
B169: 
B16B: 
B16D: 
B16E: 
B170: 
B1l72: 
B174: 
B175: 
B177: 
B17A: 
B17C: 
BI7F: 
B181: 
B183: 
B185: 


BO 
20 
20 
90 
AY 


85 


DO 
20 
90 
A2 
24 
10 
£8 
46 
66 
66 
CA 
DO 
20 
FO 
20 
A9 
24 
10 
OA 


08 
O01 BY 
Al B7 
06 
OB 
60 
15 
OE BY 
2A 
03 
D7 
O01 


62 
61 
60 


EF] 
El 
12 
E8 
08 
D7 
O01 


FE 


Bl 


BCS 
JSR 
JSR 
BCC 
LDA 
STA 
BNE 
JSR 
BCC 
LDX 
BIT 
BPL 
INX 
LSR 
ROR 
ROR 
DEX 
BNE 
JSR 
BEQO 
JSR 
LDA 
BIT 
BPL 
ASL 
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Load CMPVEC addr in Y-reg & 
CMPVEC mem for Indcmp 
Get bank # 'from' OP3 

All system interrupts disabled 
Kernal INDCMP: 
CMP(CMPVEC), Y bank 

All system interrupts enabled 
Secure result of CMP 

X-Reg loaded w/ secured value 
Set back comparison result 
Return from subprogram 


Monitor command: M 
(Memory display) 


No parameter, then set default 
Copy contents of OP1 into OP3 
Get 'to' in OP1 

Convey from-to step number 
Load OP1 (lo) with default 

load step count 12 

Goto exec. of memory display 
Difference: OP1-OP3 in OP1 

If '‘from'>'to' then ERROR 

Step # divided by 2 three times 
Check for 40/80-col. mode 
40-col, to step division 

80-col, to step number 

Div. of OP1 (3-byte operand) 
by 2, for memory display values 
of 8 or 16. 

Division # for step #-1 

OP1 divided by 8/16 

Kernal STOP: test for STOP key 
STOP pressed, go EXIT routine 
Display a line of memory 

+ constant from ‘from’ operand 


Check for 40/80-col. mode 


40-col, add constant of 8 OK 
80-col, add constant *2 (=16) 
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B186: 
B189: 
B18C: 
B18E: 
B191: 


20 
20 
BO 
AC 
4c 


52 BY 
22 BY 
E9 

8B BO 
BC BO 


$B952 
$B922 
$B177 
SB08B 
SBOBC 


KKKEKKKEKKKKKKKKKKKKKKKKKKKKKKE 


B194: 


B197: 
B199: 
B19C: 
B19E: 
BIAO: 
B1A3: 
B1lA4: 
B1A6: 
B1A8: 


20 


AO 
20 
BO 
A5 
99 
C8 
CO 
90 
4C 


74 BY 


00 
A7 B7 
OA 
60 
05 00 


05 
Fl 
8B BO 


JSR 


LDY 
JSR 
BCS 
LDA 
STA 
INY 
CPY 
BCC 
JMP 


SB974 


# $00 
SB7A7 
SB1A8 
* $60 


$0005,Y 


# $05 
$B199 
SBO8B 


KKKEKKKKKEKKKKKKKKEKKKKKKKKKKKKKK 


B1AB: 
BIAD: 
B1BO0: 
B1B2: 
BIB5: 
B1B7: 
B1B9: 
BIBC: 
BIBD: 
BIBF: 
B1Cl: 
B1C3: 
B1ic5: 
B1C7: 
B1Cc9: 


BO 
20 
A0 
20 
BO 
A5 
20 
C8 
24 
10 
CO 
90 
CO 
90 
20 


1c 
01 B9 
00 
Al B7 
12 
60 
ZA Bl 


D7 
04 
10 
ED 
08 
B9 
7D FEF 


BCS 
JSR 
LDY 
JSR 
BCS 
LDA 
JSR 
INY 
BIT 
BPL 
CPY 
BCC 
CPY 
BCC 
JSR 


SB1C9 
SB901 
# $00 
SB7A7 
SB1C9 
* $60 
SB12A 


* $D7 
$B1c5 
# $10 
$B1B2 
# 308 
$B1B2 
SFF7D 


200 


Addition: Acc contents + OP3 
Subtraction: OP1 - constant <1> 
Loop, ‘til OP1 <0 

Jump to input wait loop 

<?> Output and go to input wait 
loop 


Monitor command : ; 
(Modify reg) 


C=0--OP1 in ZP 
bank/PCHi/PCLo 

Set displacement for zero page 
Get OP1's modifier 

Carry set=identifier for exit rout. 
Get lo-add from OP1 as modifer 
Modify status;B,A,X,Y stat. ptr. 
Display Z-P CPU memory +1 
All CPU memory changed? 

no, then jump to next routine 
Jump to input wait loop 


Monitor command: 
> (Modify mem) 


No parameter, then no change 
Copy contents of OP1 into OP3 
Set modify display ptr. to 0 
Get modify value in OP1 

No other value=print line 

Get value from OP1 (low) 

STA routine in any bank 
Display pntr for modify byte+1 
Test for 40/80-col. mode 

Max. param reading of 40 chars. 
16 chars. read/changed? 

no, goto next parameter 

8 chars read/changed? 

no, get next parameter 

Kernal PRINT: output string 
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KKKKKKKKKKKKKKEKKKKKEKKKKKKKKKEE Clear insert, RVS, quote modes 
Bicc: 1B 4F 91 00 <Esc -O> <Crsr Up> 


KEKKKKKKKKKKKKKKKEKKKKKKKKK KKK Display changed memory line 


B1D0: 20 E8 Bl JSR _ $B1E8 Outputs:<8/16 hex values, 8/16 
| ASCII 
B1D3: 4C 8B BO JMP S$BO8B Jump to input wait loop 
KKKKKKKKKKKKKAKKKKKKKEKKKKKK KKK Monitor command: G (Go to) 
B1D6: 2074 B9 JSR  $B974 C=0 OP1 in zeropage 
bank/PCHi/PCLo 
B1D9: A6 09 LDX * $09 Load X w/ Z-P byte for stack ptr 
B1DB: 9A TXS Modify stack ptr. w/ X-reg. 
BDC: 4C 71 FF JUMP $FF71 Krnl JMPFAR: JMP to any bank 
KKEKKKKKKKKKKKEKKKKKKKKKKKEKKEKKKE Monitor command : J Jump to) 
BIDF: 20 74 B9 JSR §$B974 C=0 OP1 in zero page 
bank/PCHi/PCLo 
B1E2: 20 6E FF JSR SFF6E Kernal JSRFAR:JSR 
B1E5: 4C 8B BO JMP $BO8B Jump to input wait loop 
KKKEKKKKKEKKKKKKKKKKKEKKKKKKKKKKE Display '<',8/16 hex values & 
8/16 ASCII characters for 
memory display 
B1E8: 20 B4 B8 JSR _ §$B8B4 Line feed + clear rest of line 
B1EB: A9 3E LDA # $3E Load acc with '<' char. 
B1IED: 20 D2 FF JSR $FFD2 Kernal BSOUT: output one char 
B1IFO: 20 92 B8 JSR $B892 Output OP3 in 5-byte ASCII 
B1F3: AO 00 LDY # $00 Loop # set to 0 
B1F5: FO 03 BEQ SBI1FA 1 hex value skip space 
B1F7: 20 A8 B8 JSR $B8A8 Output <SPACE> <CR> 
BIFA: 20 1AB1l JSR $B11A <Crsr-up>.LDA from any bank 
BIFD: 20 C2 B8 JSR $B8C2 A displayed as 2-byte ASCII 
B200: C8 INY Loop+displacement #+1 a 
B201: CO 08 CPY # $08 8 hex values printed? 


201 
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B203: 
B205: 
B207: 
B209: 
B20B: 


KAEKEKEKKKEKKEKEKKKKKKKKKKKKKKKKKKKK 


B20E: 


KRKEKKKKKKKKKEKKEKKKKKKKKKKKKKKRKEKE 


B211: 
B213: 
B216: 
B217: 
B219: 
B21B: 
B21C: 
B21E: 
B220: 
B223: 
B224: 
B226: 
B228: 
B22A: 
B22C: 
B22E: 
B230: 


KKEAEKKKKKEKKKKKKEKKKKKKKKKKKKKKKE 


B231: 
B233: 


KAKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


B234: 


24 
10 
CO 
90 
20 


3A 12 00 


AO 
20 
48 
29 
C9 
68 
BO 
AY 
20 
C8 
24 
10 
C0 
90 
CO 
90 
60 


D7 
02 
10 
EC 


7D FF 


00 
1A Bl 


TF 
20 


02 
2E 
D2 FF 


D7 
04 
10 
E77 
08 
E3 


A9 00 
2C 


AY 80 


BIT 
BPL 
CPY 
BCC 
JSR 


* $D7 
$B209 
# $10 
SB1F7 
SFF7D 


# $00 
$B11A 


# STF 
# $20 


$B220 
# S$2E 
SFFD2 


* $D7 
SB22C 
# $10 
$B213 
# $08 
$B213 


LDA # $00 


-Byte 


$2C 


LDA # $80 


Test for 40/80-col. screen 
Output to 40-col. 

16 hex values printed? 

Get next hex value 

Kernal PRINT: output string 


Constant: colon, RVS-on 
: <Rvs On> 
Output 8/16 bytes in ASCII 


Loop and display counter to 0 
LDA from any bank 

Put char. on stack 

Mask bit 7 (no RVS char.) 
Check for ctrl char. 

Get char. from stack again 

Not ctrl char, then normal output 
Load accumulator with <.> 
Kernal BSOUT: outpt character 
Loop & displacement counter +1 
Check for 40/80-col. screen 
Continue display if 40-col. 

16 characters printed?(80-col) 
no, output next char. 

8 characters printed? (40-col) 
no, print next char. 

Return to subroutine 


Monitor command : C 
(Compare) 


Set char. for COMPARE 
skip to $B236 


Monitor command : T 
(Transform) 


Set TRANSFORM marker 
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ae er nS si SS SS 


B236 85 
B238 A9 
B23A 8D 
B23D 20 
B240 BO 
B242 20 
B245 90 
B247] 4c 
B24A 24 
B24C 10 
B24E 38 
B24F A5 
B251 E5 
B253 A5 
B255 E5 
B257 BO 
B259 A5 
B25B 65 
B25D 85 
B25F A5 
B261 65 
B263 85 
B265 A5 
B267 65 
B269 85 
B26B A2 
B26D BD 
B270 95 
B272 CA 
B273 10 
B275 AY 
B277 8D 
B27A 20 
B27D AQ 
B27F 20 
B282 FO 
B28 4 20 
B287 A2 
B289 8E 
B28C 8K 


OA 
B9 


B7 


BO 


OA 


OA 
B8 


FF 


Bl 


02 
02 


YY + + * + 
OP 
oY 
~] 


+ t+ Fe OF He OF OHO OF 
wy 
fo) 
ay 
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and put into cmd byte memory 
Direction ptr for C/T cmd to $00 
(=forward) set ($80=backward) 
Get 'til' & step cnt in OPH,OP2 . 
Carry set= error marker found 
Get 'to'/‘with' (in OP1) 
'To'/‘with' operand is OK 

<?> displayed go input wait loop 
Was it transferred (-) or com- 
pared (+) in CMP routine? 

Set carry for subtraction 

Test whether contents of both 
bytes (addr lo), (addr hi) are 
larger than operand OP3, or the 
address bytes of OP1. 
'To'<'from'=direction OK 

Add the contents of the 3-byte 
operand OP2 in locations 
$65-$64-$63 to the contents of 
the 3-byte operand OP1 

in locations $62-$61-$60. 

Put any addition overflow 
results in OP1. 

Store addition result 

in OP1 

Copy the contents of the 

3-byte help operands 

in memory locations 
$0AB9-$0AB8-$0AB7 into the 
operand OP3 ($68-$67-$66) 
When 'til' is greater than ‘from’ 
set direction marker to backward 
<CR> & clear rest of line 

Set displacement ptr. to 0 
Kernal STOP: check STOP key. 
If STOPkey goto Exit routine. 
LDA from any bank 

$60 is lo-addr. 'with' 'til’-OP1 
Set STAVEC at this addr. 

Set CMPVEC at this addr. 
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B2AF: 
B2B1: 
B2B3: 
B2B5: 
B2B7: 
B2BA: 
B2BD: 
B2CO0: 


62 


60 
C6 


FF 


FF 


B8 
B8 
B8 
OA 


* $62 


* $93 
$B299 
SFEF77 


* $62 
SFF7A 


SB2AA 
$B892 
SB8A8 
SB8A8 
SOAB3 
SB2BA 
* $60 
$B2C3 
* $61 
$B2C3 
SBOBC 
$B922 
$B960 
SB2C6 


KREEKKKKKKKKKKKKKKKKKKKKKKKKKEK 


B2C3: 
B2C6: 
B2C9: 
B2CB: 


20 50 BY 
20 3C BY 


BO 


B4 


4C 8B BO 


JSR 
JSR 
BCS 
JMP 


$B950 
SB93C 
SB27F 
SB08B 


KEKEKKKKKEKKKEKKKKKKKKKKKKKKKKKKEK 


B2CE: 
B2D1: 
B2D3: 
B2D5: 
B2D8 : 
B2DA: 


20 
BO 
AO 
20 
C9 
DO 


83 
61 
00 
E9 
27 
16 


B9 


B8 


JSR 
BCS 
LDY 
JSR 
CMP 
BNE 


$B983 
$B334 
# $00 
SB8E9 
# $27 
$B2F2 
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Load X-reg w/ bank byte 'til' 
All system interrupts disabled 
Was it transfer or comparison? 
Compare in appropriate routine 
Kernal INDSTA: 
STA(STAVEC), Y any bank 
Load X w/ bank byte 'with' 
Kernal INDCMP: 
CMP(CMPVEC),Y any bank 
All system interrupts enabled 
‘Equal' not given, and 

OP3 output as 5-byte ASCII 
<SPACE>,<C/R>,<crsr-up> 
output 

Test for transfer direction 

Send new return address 

Fwd. transfer of 'til' address 
raised by 1 and monitored 

for overflow 

If hi-addr. overflow, then error 
<?> output - to input wait loop 
Subtraction: OP1 - constant <1> 
Subtraction: OP3 - constant <1> 


Jump to subtraction OP2 - <1> 


Set step number & ‘from’ 


Addition: constant <1> to OP3 
Subtraction: OP2 - constant <1> 
Loop until all steps done 

Jump to input wait loop 


Monitor command : H (Hunt) 


Get ‘til’ step value in OP1 

Carry set=identifier - found error 
Display hunt char in CMP buffer 
Read a char from input buffer 
Was character read a <.>? 

no, don't look for string 
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B2DC: 
B2DF : 
B2E1: 
B2E3: 
B2E6: 
B2E7: 
B2EA: 
B2EC: 
B2EE: 
B2F0: 
B2F2: 
B2F5: 


B2F8: 
B2FA: 
B2FD: 
B2FE: 
B301: 
B303: 
B305: 
B307: 
B309: 
B30C: 
B30E: 
B311: 
B314: 
B316: 
B317: 
B319: 
B31B: 
B31E: 
B321: 
B324: 
B327: 
B329: 
B32C: 
B32F: 
B331: 
B334: 


20 
C9 
F'0 
99 
C8 
20 
FO 
CO 
DO 
FO 
8C 
20 


A5 
99 
C8 
20 
BO 
CO 
DO 
84 
20 
AO 
20 
D9 
DO 
C8 
C4 
DO 
20 
20 
20 
20 
FO 
20 
20 
BO 
4C 
4c 


E9 B8 
00 
one 
80 OA 


E9 B8 
1B 
20 
F3 
15 
00 O1 
A5 B7 


60 
80 OA 


A7 B7 
04 
20 
Fl 
93 
B4 B8 
00 
1A Bl 
80 OA 
OE 


93 
F3 
92 B8 
A8 B8 
A8 B8 
El FF 
08 
50 BY 
3C BY 
DB 
8B BO 
BC BO 


SB8E9 
# $00 
$B334 


S0A80,Y 


SB8E9 
$B307 
# $20 
$B2E3 
$B307 
$0100 
S$B7A5 


x $60 


S0OA80,Y 


SB7AT 
$B307 
# $20 
SB2F8 
* $93 
SB8B4 
# $00 
$B11A 


$0A80,¥Y 


SB324 


* $93 
SB30E 
$B892 
SB8A8 
SB8A8 
SFFE1 
$B331 
$B950 
$B93C 
$B30C 
SB08B 
SBOBC 
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Read a character to input buffer 
Has command-end been found? 
yes, then output error <?> 

Put char in CMP buffer 
Displace CMP buffer +1 

Test input buffer for cmd-end, 
<i>, <?>; if so, execute HUNT 
32 in CMP buffer? 

no, get next CMP value for 
hunt routine 

Store displ. in CMP buffer 

Put CMP operand in OP1 

(like CHRGOT) 

Transmit OP1 byte into 

CMP buffer 

Displace CMP buffer +1 

Get more CMP values in OP1 
NONE FOUND-execute HUNT 
32 values in CMP buffer? 

No, get next CMP value 

Store cnt of CMP buffer values 
<CR> & clear rest of line 
Display 1st char in CMP buffer 
LDA from any bank 

CMP w/ char from CMP buffer 
Unequal--on to next step 
Display next CMP buffer value 
All individual comps run? 

No, next step of comparison 
Contents of OP3, 5-byte ASCII 
<SPACE>, <CR>, <crsr-up> 
<SPACE>, <CR>, <crsr-up> 
Kernal STOP: check STOP key 
If STOP, goto Exit routine. 
Addition: constant <1> to OP3 
Subtraction: OP2 - constant <1> 
Loop until all steps done 

Jump to input wait loop 

Output <?> -to input wait loop 


Abacus Software 
a 


KAKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B337: 
B339: 


B33B: 


B33D: 
B33E: 
B340: 
B342: 
B344: 
B346: 
B348: 
B34A: 
B34C: 
B34E: 
B351: 
B353: 
B355: 
B357: 
B359: 
B35B: 


B35D: 
B360: 
B362: 
B363: 
B365: 
B367: 
B369: 
B36B: 
B36C: 
B36E: 
B370: 


KAEKEKKKKKKKKEKKKKEKKEKKEKKKKKKKKKKE 


B373: 
B375: 


A0 
84 
84 
88 
84 
84 
84 
84 
A9 
85 
A9 
85 
20 
FQ 
C9 
FO 


Co 


DO 
Ao 


BD 
FO 
E8 
cg 
FO 
91 
E6 
C8 
CO 
90 
AC 


86 


20 EY B8 


O01 
BA 
BY 


C6 
B7 
C7 
90 
OA 
BC 
80 
BB 
EQ B8 
58 
20 
F7 
22 
15 
7A 


00 02 
49 


ZZ 
OC 
BB 
B7 


11 


ED 
BC BO 


7A 


LDY 
STY 
STY 
DEY 
STY 
STY 
STY 
STY 
LDA 
STA 
LDA 
STA 
JSR 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDX 


LDA 
BEQ 
INX 
CMP 
BEQ 
STA 
INC 
INY 


-CPY 


BCC 
JMP 


STX 


# $01 
* SBA 
* SB9 


* $C6 
* SB7 
* $C7 
x $90 
# SOA 
* SBC 
# $80 
x SBB 
SB8E9 
SB3AB 
# $20 
SB34E 
# $22 
$B370 
* STA 


$0200,X 


SB3AB 


# $22 
$B373 


(SBB) ,Y 


* S$B7 


# $11 
SB35D 
SBOBC 


* STA 


JSR SB8E9 
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Jumps to monitor commands: 
L = Load, S = Save, V = Verify 


Load Y-reg with $01 

Set device number (1=Datasette) 
Set secondary address (1=write) 
Y-reg counts down to $00 

Set BANK no. for LSV call 
Length of filename set to 0 

Set BANK for addr. of filename 
Clear status byte (0 = all OK) 
Zero-page memory for hi addr. 
of filename loaded w/ $0A 
Zero-page memory for lo addr. 
of Filename w/ $80 (= $0A80) 
Test input buffer; 

If cmd-end; go to input loop 
Was char. read a <SPACE>? 
Yes, continue, read next char. 
Was char. a <"'>? 

No, error in command string 
X-reg loaded w/ display from 
input buffer 

Read ist" in-buffer(=filename) 
$00 = End of command string 
Input buffer pointer to next char. 
Has 2nd <"> been found? 

Yes, further evaluation 
Filename placed at $0A80 
Counter for filename length + 1 
Filename memory pntr increment 
Filename longer than 16 chars ? 
No, read next character 

Display <?> &go input wait loop 


LSV parameter evaluation after 
2nd <"> 


Input buffer pointer after 2nd " 
Check buffer cmd-end, <:><?> 
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B378: 
B37A: 
B37D: 
B37F: 
B381: 
B383: 
B386: 
B388: 
B38B: 
B38D: 
B390: 
B392: 
B395: 
B397: 
B399: 
B39B: 
B39D: 
B39F: 
B3Al1: 
B3A3: 
B3A5: 
B3A8: 


FO 
20 
BO 
A5 
85 
20 
BO 
20 
85 
20 
BO 
20 
A6é 
A4 
A5 
C9 
DO 
AY 
85 
AY 
20 
4c 


31 
A7 B/ 
2C 
60 
BA 
A7 B7 
23 
O01 B9 
C6 
Al B7 
3F 
B4 B8 
60 
61 
93 
53 
D1 
00 
B9 
66 
D8 FF 
8B BO 


BEQ 
JSR 
BCS 
LDA 
STA 
JSR 
BCS 
JSR 
STA 
JSR 
BCS 
JSR 
LDX 
LDY 
LDA 
CMP 
BNE 
LDA 
STA 
LDA 
JSR 
JMP 


SB3AB 
SB7A7 
SB3AB 
* $60 
x SBA 
SB7A7 
SB3AB 
$B901 
* $C6 
SB7A7 
$B3D1 
SB8B4 
* $60 
x $61 
* $93 
# $53 
$B370 
# $00 
x SB9 
# $66 
SFFD8 
$B08B 


KKKKKEKEKKKEKKKKEKRKKEKKKEKKKKKKKKKK 


B3AB: 
B3AD: 
B3AF: 
B3B1: 
B3B3: 
B3B5: 
B3B7: 
B3BA: 
B3BC: 
B3BE: 
B3C0: 
B3C2: 
B3C4: 


A5 
C9 
FO 
C9 
DO 


- AY 


20 
A5 
29 
FO 
A5 
FO 
20 


93 
56 
06 
4c 
BB 
00 
D5 
90 
10 
E8 
93 
AC 
7D FF 


FF 


LDA 
CMP 
BEQ 
CMP 


* $93 
# $56 
$B3B7 
# $4C 
$B370 
# $00 
SFFD5 
* $90 
# $10 
SB3A8 
* $93 
$B370 
SFF7D 
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LV can run w/o parameters 
Get parameter from OP1 (dev #) 
No param, goto LV expression 
Get OP1 (lo)(dev address) 
and put in zero page 
Get OP1 parameters (start addr.) 
No param, goto LV expression 
Copy OP1 contents into OP3 
Get bank# in zeropage bank B 
LSV parameters (end addr.) 
No parameter, to LV expression 
Line feed & clear rest of line 
OP1 (low) is 'til' value for SAVE 
OP1(hi) is 'til' value for SAVE 
Get command-/keyword 
Was there an <S> for Save ? 
No=error, no 'til'forSAVE _ 
Load acc with 0, to zero page © 
for secondary addr. 
Bank # ‘from’ operand (OP3) 
Kernal SAVESP: Save data 
Jump to input wait loop 


Execute valid LV commands 


Get command-/keyword 
<V> for Verify ? 
Accu <> 0, verify in LOADSP 
<L> for Load 
no, then was it Save <S>? 
u = 0 is load marker in LOADSP 
Kernal LOADSP: Load data 
Load system STATUS in acc 
Mask bit for read error 
No LV error -go input wait loop 
Get char for command/keyword 
No cmd/keyword--then ERROR 
Kernal PRINT: output string 
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i ee 


TOKAI IO RIOR IK RIOR IIR IO KI KK 


B3C7: 


20 45 52 52 4F 52 00 


KAKKEKKKKKEKKKKKKKKKKEKKKEKKKKKKEKEK 


B3CE: 


4C 8B 


BO 


JMP 


SB08B 


KKEAEKKKKKKKKKEKKKKKKKKKKKKKKKKEKK 


B3D1: 
B3D3: 
B3D5: 
B3D7: 
B3D9: 


A6é 66 
A4 67 
AY 00 
85 BY 
FO DO 


LDX 
LDY 
LDA 
STA 
BEQ 


* $66 
* $67 
# $00 
* $B9 
SB3AB 


KKEEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B3DB: 


B3DE: 


B3E0: 


B3E2: 
B3E5: 
B3E7: 
B3EA: 


B3EC: 
B3EE: 
B3F0: 
B3F3: 
B3E6: 
B3F8: 
B3FB: 
B3FE: 
B400: 
B403: 


20 83 
BO 23 
A5 68 
CD BY 
DO 1c 
20 A7 
BO 17 
AQ 00 
A5 60 
20 2A 
20 El 
FO 08 
20 50 
20 3C 
BO EE 
4C 8B 
4C BC 


B9 


OA 


B7/ 


Bl 
FF 


BY 
BY 


BO 
BO 


JSR 


BCS 

LDA 
CMP 
BNE 

JSR 
BCS 

LDY 
LDA 
JSR 
JSR 
BEQ 
JSR 


$B983 


$B403 
* $68 
SOAB9 
$B403 
SB7A7 
$B403 
# $00 
x $60 
$B12A 
SFFE1 
$B400 
$B950 
$B93C 
SB3EE 
SBO8B 
SBOBC 


208 


Monitor constant for <ERROR> 
ERROR 

Goto input wait loop after 

Jump to input wait loop 


Extension of LV commands 
w/ device & starting addrs. 


lo-addr. (start addr. in X-reg) 
hi-addr.(start addr. in Y-reg) 
Write sec. address $00 = read 
in zero page mem. for sec. addr. 
to execute LV commands 


Monitor command : F (Fill) 


Get ‘til’ and stepsize in 
OPH,OP2 
Carry set=error output identifier 
Get bank no. from 'from' (OP3) 
Cmp w/ bank # of 'til' operand 
Unequal =error output identifier 
Get cmd parameter (fill value) 
Carry set=error output identifier 
Set display for fill command, 0 
into OP1(lo) 
STA routine (accu in any bank) 
Kernal STOP: check STOP key 
If pressed, then input wait loop 
Addition: constant <1> to OP3 
Subtraction: OP2 - constant <1> 
Kernal STOP:Test for STOP key 
Jump to input wait loop 
Display <?> &go input wait loop 
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Kak KK KKKKKKKKKKKKKK KKK KKK 


B406: 
B408: 
B40B: 
B40D: 
B410: 
B413: 


B416: 
B418: 
B4l1A: 
B41cC: 
B4lF: 
B421: 
B423: 
B426: 
B427: 
B429: 
B42B: 
B42C: 
B42E:; 
B431: 
B432: 
B434: 
B436: 
B437: 
B43A: 
B43D: 
B43E: 
B440: 
B442: 
B445: 
B447: 
B44A: 
B44C: 
B44F: 
B451: 
B453: 


3A 
O01 
00 
Al 
B4 
E9 


07 
00 
03 
8B 
20 
E8 
AC 


03 
E8 


17 
AC 


3F 
05 


Al 
A0 


F6 
E9 
BC 
02 
B4 
30 
CE 
29 
EF 
24 


B9 


OA 


OA 


B8 


BO 


OA 


OA 


OA 
OA 


BO 


OA 


B7 
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Monitor command: A 
(Assemble) 


Carry set=error output identifier 
Copy OP1 to OP3 

Clear mnemonic buffer display 
Bit 0 for compressed cmd code 0 
Set loop counter to 0 

Test input buffer for cmd-end, 
<i>, <?> 

Not cmd-end, then go on 
Display still 0, no commands 
No, continue 

Jump to input wait loop 

Is char. read a <space>? 

Yes, read and initialize 

Put char. in mnemonic buffer 
Mnem. buffer display ptr. +1 

3 mnemonic chars. given? 

No, get next char. 

Displ. pointer to last character 

3 characters processed, continue 
Read 3 mnem. chars backward 
Set carry for subtraction 

Alpha char values; A=1,B=2,etc 
Counter shifted 5x for 1 bit 
Shift 1 bit of the letter value out 
of acc into byte pair $AA1-$AA0 
The three mnemonic chars. will 
be shifted into the byte pair 
mentioned above and occupy 3 
sets of 5 bits in these bytes 
Display <?>; go input wait loop 
Set displacemnt of output buffer 
Load loop counter into acc 

If not equal to 0, then skip 

Get cmd parameters in OP1 

If 0, then test for cmd-end 
Carry set=char. for error output 
Load <$> into acc and bring to 
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B455: 
B458: 
B459: 
B45B: 
B45D: 
B45F: 
B462: 
B464: 
B466: 
B469: 
B46B: 
B46D: 
B46F: 
B471: 
B473: 
B476: 
B477: 
B478: 
B47A: 
B47C: 
B47F: 
B481: 
B483: 
B485: 
B488: 
B489: 
B48B: 
B48D: 
B48F: 
B491: 
B493: 
B496: 
B498: 
B49A: 
B49D: 
B4A0: 
B4A3: 
B4A5: 
B4A6: 
B4A9: 


AO 


61 
TF 


OA 


OA 


OA 


OA 


B8 


OA 


OA 


OA 
B6é 
OA 


B7 
B5 


SOAA0,X 


* $62 
$B442 
# $04 
SOAB6 
# $08 
SB46B 
SOAB4 
SB471 
* $61 
SB471 
# $02 
# $30 


SOAAO,X 


$B473 
* STA 
SB8E9 
SB48F 
# $20 
$SB447 


SOAAO,X 


# SOA 
$B447 
$B442 
x $63 
# $00 
SOAB1 
# $00 
* SOF 
SOAB1 
$B659 
SOAAA 
x $64 


$B761,X 


SB57F 
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output buffer 

Displace output buffer +1 

Get OP1's bank byte 

>O=error output indicator 

Hex division factor 

Get number base of operand 
Compare w/ <8> 

<8--get high addr. (OP1) 

Cmp. with loop counter 

Equal, then skip 

Get high addr. byte of OP1 

If not equal to 0, then skip 

Set loop counter for null bytes 
Load ASCII <Q> into acc and 
store in assem-cmd temp storage 
Incr. assem-cmd length counter 
Loop count for OP nullbytes -1 
Loop till counter=0 

Display pntr on previous char. 
Test input buffer for cmd-end, 
If cmd-end, then to expression 
Char a <SPACE>? 

Yes, new parameter expression 
in asmblr-cmd temp. storage 
Command >9 chars? 

No, then get next char. 

Yes, then display <?> error 
Asmblr-cmd OP2 (low) is length 
Byte length of cmd in OP2 (low) 
Load X-reg w/ 0 and bring up 
Cmd-comparison loop counter 
Load X-reg w/ 0 and use as 
display for asmblr-cmd buffer 
Get cmd-comp. counter 

Addr. & length for cmd counter 
Get cmd length pointer (0,1,2) 
and store in OP2 (high) 

Test result for mnem. compare 
Byte at mnemonic keyword tab 2 
Compare w/ byte in asm buffer 
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B4AC: 
B4AF: 
B4B2: 
B4B4: 
B4Bé6: 
B4B8: 
B4BB: 
B4BD: 
B4C0: 
B4C2: 
B4C4: 
B4Cé6: 
B4C9: 
B4CA: 
B4CC: 
B4CF: 
B4D1: 
B4D4: 
B4D7: 
B4DA: 
B4DC: 
B4DF: 
B4E0: 
B4E2: 
B4E4: 
B4E7: 
B4EA: 
B4EC: 


B4EE: 
B4F0: 
B4F3: 
B4F6: 
B4F8: 
B4FA: 
B4FC: 
B4FE: 
B500: 
B502: 
B503: 


21 B7 
B5 


OA 


OA 


B5 


OA 
14 B7 
B5 
B7 


B5 


BS 
B5 


BS 
OA 


$B721,X 


SB57F 
# $06 
# $03 
SB4CC 
SOAAB 
SB4CC 
SOAAA 
# SE8 
# $30 
SB4E4 
SB57C 


SB4BD 
SOAAA 
SB4DF 


$B714, 


SB57F 


X 


SB71A,X 


SB4DF 
SB57F 


SB4B4 
SB4EA 
SB57C 
SB57C 
* $63 
x SOF 


SB4F3 
$B58B 
SOAAB 
SB52A 
* $64 
# $9D 
$B521 
x $60 
x $66 


* $61 


211 


Byte at mnemonic keyword tab 1 
Compare w/ byte in asm buffer 
Loop counter for address cmp. 
3 loops completed? 

No, then only addressing cmp. 
Get cmd length pointer (0,1,2) 
Handle as a 1-byte cmd 

Get addressing key 

Compare w/ $E8 

ASCII for <0> in acc 

carry set, in corresponding eval. 
Compare w/ byte in asm buffer 
Decrement cmd length cnt by 1 
If not equal to O, then skip 
Shift addressing key 

Bit=0, then skip cmp. 

Get addressing char 1 at tab 
Compare w/ byte in asm buffer 
Get addressing char 2 at tab 

If $00, then no comp. 
Compare w/ byte in asm buffer 
Addressing loop counter -1 
Not equal to 0, continue loop 
0, continue evaluation 
Compare w/ byte in asm buffer 
Compare w/ byte in asm buffer 
Get stored length of asmblr cmd 
Compare w/ display 
(asmblr-cmd buffer) 

If equal then skip 

Increment cmd-loop counter 
Get cmd length pointer 

If 0, then a 1-byte cmd 

Get hi-addr. byte from OP2 
and compare it with $9D 

Not equal, then skip 

Get low operand addr. and 
subtract low-cmd addr. 

Put result in X-reg 

Get high operand addr. and 
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B505: 
B507: 
B509: 
B50B: 
B50D: 
B50F: 
B511: 
B512: 
B513: 
B515: 
B517: 
B519: 
BO1A: 
B51B: 
B51C: 
BOI1F: 
B521: 
B524: 
B527: 


B528: 


B52A: 
B52D: 


B530: 


B533: 


20 
20 
20 


OA 


00 
Bl 


OA 
Bl 
B8 
FFE 


SBC 
BCC 
BNE 
CPX 
BCS 
BCC 
TAY 
INY 
BNE 
CPX 
BCC 
DEX 
DEX 
TXA 
LDY 
BNE 
LDA 
JSR 
DEY 
BNE 
LDA 
JSR 
JSR 
JSR 


* $67 
SB511 
$B579 
# $82 
$B579 
$B519 


$B579 
# $82 
$B579 


SOAAB 
$B524 


SOO5F,Y 


SB12A 


$B521 
SOAB1 
SB12A 
SB8AD 
SFF7D 


KKKEKKKKKKKEKKEKKEKKEKKKEKKKKKKKKKK 


B536: 


41 20 1B 51 00 


KKKEKKKKKKKKEKRKKEKKKKEKEKKKKKKKEKKK 


B53B: 


B53E: 


B541: 


B544: 
B547: 
B549: 


DC BS 
AB 0A 
AB OA 
52 B9 
41 

4A 03 


JSR 
INC 
LDA 
JSR 
LDA 
STA 


SB5DC 
SOAAB 
SQOAAB 
$B952 
# $41 
SO034A 
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subtract high-cmd addr. 
To evaluate of backward branch 
"BRANCH OUT OF RANGE", <?> 
Check whether branch is valid 
If off by more than $82 give <?> 
In corresponding expression 
Copy accu into y-reg and 
increment from 0 to 1 
Unequal to 0, output <?> error 
Compare to $02 
Less than 2, then output <?> 
Addr. balance: decrement X-reg 
Addr. balance: decrement X-reg 
Bring value to accumulator 
Get cmd-length counter in Y-reg 
<>Q, then skip 
Get value from operand OP1 
STA routine for acc in any bank 
Decrement cmd length pntr by 1 
<>Q--skip 
Get value from OP1 
STA routine for acc in any bank 
<CR><crsr-up> 
Kernal PRINT: output string 


Monitor constant: 
assemble output 


A <SPACE> <Esc - Q> 


Generate chars. and address 
stagger for next assembly 
procedure 


Output address and get byte 
Increment opcode Ingth ptr. by 1 
Add length to 'from' operand 
Addition: acc contents + OP3 
Load accu with <A> (assemble) 
in procedure buffer for next line 
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B54C: 
B54E: 
B551: 
B554: 
B556: 
B559: 
B55C: 
B55E: 
B561: 
B564: 
B567: 
B569: 
B56C: 
B56F: 
B572: 
B574: 
B576: 
B579: 


KREKKKKKKKKKKKEKKKKKEKKKKKKKKKKE 


B57C: 
BOTE: 
B582: 
B584: 
B587: 
B589: 
B58A: 
B58B: 
B58E: 
B590: 
B593: 
B595: 
B598: 


AY 
8D 
8D 
A5 
20 
8 
A5 
20 
8D 
8E 
A5 
20 
8D 
8E 
AQ 
85 
4c 
4c 


20 
8E 
Ao 
DD 
FO 
68 
68 
EE 
FO 
4c 
E6 
AE 
60 


20 
4B 
51 
68 
D2 
4C 
67 
D2 
4D 
4E 
66 
D2 
4F 
50 
08 
DO 
8B 
BC 


03 
03 


B8 
03 


B8 
03 
03 
B8 


03 
03 


BO 
BO 


B5 
OA 


OA 


OA 


B4 


OA 


# $20 
$034B 
$0351 
x $68 
SB8D2 
$034C 
* $67 
SB8D2 
$034D 
$034E 
x $66 
SB8D2 
$034F 
$0350 
# $08 
* SDO 
SBO08B 
SBOBC 


SB57F 
SOAAF 
* SOF 


SOAA0,X 


$B593 


SOAB1 
$B579 
$B496 
* SOF 
SOAAF 
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C-128 Internals 


Load accu with <SPACE> 

in procedure buffer for next line 
in procedure buffer for next line 
Bank byte of ‘from' addr. in acc 
Acc in 2-byte ASCII: hi=A,lo=X 
In procedure buffer for next line 
hi-addr byte(OP3)of ‘from’ addr 
Acc in 2-byte ASCII: hi=A,lo=X 
In proc. buffer for next line 

In proc. buffer for next line 
lo-addr byte(OP3)of ‘from’ addr 
Acc in 2-byte ASCII: hi=A,lo=X 
in proc. buffer for next line 

in proc. buffer for next line 
Keyboard buffer set for 

8 chars (=length of proc. line) 
Jump to input wait loop 

Display <?> , go input wait loop 


Compare acc contents w/ a char. 
from asmblr-cmd temp. storage 


Execute following routine twice 
Store x-reg contents 

Load asmbr-cmd display pointer 
Cmp w/ char from asmblr buffer 
If equal, then exit 

Get RTS addr. from stack 

Get RTS addr. from stack | 
Increment cmd-comparison loop 
>255--output errors — 

Jump to correspond expression 
Asmblr-cmd display pointer +1 
Return old X-reg contents 
Return to subroutine 
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KKEKKKKKKKKKKKRKEKKKEKKKKEKKKKKKEKKK 


B599: 
B59B: 
B59E: 
BOSAL: 
B5A3: 


B5A5: 
B5A7: 
B5A9: 
B5AC: 
B5AE: 


BO 
20 
20 
90 
A9 


85 
DO 
20 
90 
20 


08 
01 
A7 
06 
14 


60 
05 
OE 
23 
7D 


B9 
B7 


BY 


FE 


BCS 
JSR 
JSR 
BCC 
LDA 


STA 
BNE 
JSR 
BCC 
JSR 


SB5A3 
SB901 
SB7A7 
SB5A9 
# $14 


* $60 
SB5SAE 
SB90E 
SB5D1 
SFF7D 


KREKKKKKKKKKKKKKKKKKKKEKKEKKKKKKK 


B5Bl1: 


OD 1B 51 00 


KAEKKKKKKKKEKKEKEKKKKKKEKKEKKEKKKKKK 


B5B5: 
B5SB8: 
BSBA: 
B5BD: 


B5C0: 


B5C3: 
B5C6: 
B5C9: 
B5CC: 
B5CE: 
B5D1: 


B5D4: 


B5D6: 


B5D9: 
B5DC: 


B5DF: 
B5E2: 


FF 


BS 
OA 
OA 
B9 
OA 
BY 


BO 
BO 


FF 
B8 
B8 


B8 


SFFE1 
SB5CE 
SB5D4 
SOAAB 
SOAAB 
$B952 
SOAAB 
$B924 
SB5AE 
SBO08B 
SBOBC 
# S2E 
SFFD2 
SB8A8 
$B892 


SB8A8 
# $00 
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Monitor command: D 
(Disassemble) 


No valid ‘from’ operand 

Copy OP1 to OP3 

Get OP1 operand 

If valid, then send step number 
Standard step value $14 

(=20 bytes to disassemble) 

in low step counter 

Uncond jump to disasmblr. 
Store diff of OP1-OP3 in OP1 
Carry clear=marker for error out 
Kernal PRINT: string output 


Monitor constant: Clear 1 line 
<Cr> <Esc - Q> 


Disassembly dependent on 
‘from’ operand & step size 


Kernal STOP: test for STOP key 
If pressed, goto input wait loop 
Prep. and output disasmbld line 
Increment opcode lgth pntr by 1 
and for 'from' addr. calc 1n acc 
Addition: acc contents + OP3 
Lgth ptr. for step size calc in acc 
Subtraction: OP 1 - acc contents 
Continue disassem. if necessary 
Jump to input wait loop 

Display <?>; go input wait loop 
Load accu with <.> 

Kernal BSOUT: char. output 
<SPACE><CR><crsr-up> 
Output ‘from’ addr.(OP3) as 
5-byte ASCII 
<SPACE><CR><crsr-up> 
Load displacement for FETCH 
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B5E4: 


B5E7: 
BOEA: 
BOEB: 
BSEE: 
B5EF: 
B5SFO: 
B5F2: 


20 
20 
48 
AE 
E8 
CA 
10 
20 


1A Bl 
59 B6é 


AB OA 


OA 
7D FF 


JSR 
JSR 
PHA 
LDX 
INX 
DEX 
BPL 
JSR 


SB11A 
SB659 


$OAAB 


SB5FC 
SFF7D 


KKEKKKKKKKKKKKKKEKKKKEKKKKKKKKKKEK 


BD5F5: 


20 20 20 00 


KKKEKKKKKKKKKKKEKKKKKKKKKKKKKKEKE 


B5F9: 
B5FC: 
B5FF: 


B602: 
B603: 
B605: 
B607: 
B608: 
BOoOA: 
B60D: 
BoOF 


B613: 
B616: 
B618: 
Bol1B: 
B6lD: 
B61E: 
B621: 
B622: 
B624: 
B627: 
B628: 
B62A: 


4c 
20 
20 


C8 
C0 
90 
68 
A2 
20 
A2 


: EO 
B61l1:. 


O02 B6é 
1A Bl 
AS B8 


Bé 


OA 


OA 


Bi 


B8 


OA 


SB602 
$B11A 
SB8A5 


# $03 
SB5EF 


# $03 
SB6A1 
# S06 
# $03 
SB62A 
SOAAB 
SB62A 
SOAAA 
# SE8 


SB11A 


$B641 
SB8C2 


$B618 
SOAAA 
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LDA routine from any bank 
Validity check of opcode bytes 
Put result on stack 

Get command length loop 
Increment length key by 1 
Decrement length key by 1 
Output cmd value < 0 constant 
Kernal PRINT: output string 


Monitor constants: 3 spaces 
<SPACE><SPACE><SPACE> 
Assembly/disassembly sub. 


Skip LDA for routine 

LDA routine for acc - any bank 
Output acc as 2-byte ASCII 
+<SPACE> 

Increment Y-reg contents by 1 
Compare to $03 

<3, then continue loop 

Get result from stack 

Put 3 chars for mnem. output in 
X-reg, and to char. output 
Initialize loop count with 6 
After 3 loops, the actual address 
value will be output 

Number of cmd operand bytes 
No operand bytes, then skip 
Command addr. key 

Check for branch 

Put carry flag on stack 

LDA routine for any bank 
Reset carry flag 

If carry set, then BRANCH 
Acc conveyed as 2-byte ASCII 
If cmd has two operand bytes, 
then expression of the second bit 
is masked by addressing key 
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B6o2D: 
BO62F: 
B632: 
B635: 
B638: 
B63A: 
B63D: 
B63E: 
B640: 


90 OE 
BD 14 
20 D2 
BD 1A 
FO 03 
20 D2 
CA 

DO CF 
60 


B7 
FF 
B7 


FF 


BCC 
LDA 
JSR 
LDA 
BEQ 
JSR 
DEX 
BNE 
RTS 


S$B63D 


$B714,X 


SFFD2 


SB71A,X 


S$B63D 
SFFD2 


SB60F 


KEKKKKKKKKKKKKKKKKKEKKKEKKEKKKKEKE 


B641: 


B644: 
B645: 
B647: 
B649: 
B64A: 
B64D: 


B64F: 
B650: 
B652: 


B653: 
B655: 
B657: 
B658: 


20 4D 


18 
69 O01 
DO O1 
E8 
4C 9F 
A6 67 


A8 
10 O1 
CA 


65 66 
90 O1 
8 
60 


Bo 


B8 


JSR 


SB64D 


# $01 
SB64A 
SB8 9F 
* $67 


SB653 


* $66 
SB658 


KAKKKKKKEKKKREKEKKKEKKKKKEKKKKKKKEKK 


B6o59: 
B6o5A: 
B65B: 
B65D: 
B65E: 
B660: 


A8 
4A 
90 OB 
4A 
BO 17 
C9 22 


TAY 
LSR 
BCC 
LSR 
BCS 
CMP 
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Bit not set, skip 

Get char. for addr. type 

Kernal BSOUT: output one char 
Get char. for addr. type 

Not equal to 0--then output 
Kernal BSOUT: output one char 
Address output loop -1 

All 6 loops out 

Return to subroutine 


Address from BRANCH cmd 
Addr. calc. X=high, A=low 


Clear carry for addition 

Add 1 for low-addr. correction 
No overflow skip hi-correction 
Add 1 for high correction 

Give acc + X-reg. as 4-bytes 
Get high addr. of ‘from’ 
operand (OP3) 

Bring BRANCH offset in x-reg 
BRANCH ‘forward’ continues 
Decrement high addr. for 
‘backward’-1 

+branch offest to low addr(OP3) 
No overflow skip hi correction 
Overflow correction for hi-addr. 
Return from subroutine 


Determine addressing and length 
of the test code passed in A 


Put test code in Y-reg 

Shift bit O out & test 

If bit O=0 then OK 

Shift & test bit 1 

If bit 1=1 then no good 

Test whether exit code $89 used 
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Bo64: 
B666: 
B668: 
B669: 
B66A: 
B66D: 
BO6F: 
B670: 
B671: 
B672: 
B673: 
B675: 
B6o77: 
B679: 
B67B: 
B67C: 
B67F: 
B682: 
B684: 
B687: 
B688: 
B68A: 
B68B: 
B68C: 
B68E: 
B690: 
B692: 
B693: 
B695: 
B696: 
B697: 
B699: 
B69A: 
B6o9C: 
B69D: 
B69E: 
B6A0: 


20 


FA 


F2 


Bé 


B7 
OA 


OA 


# $07 
# $80 


A 


SB6C3,X 


$B673 


$B692 
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128 Internals 


Mask bits 3-7 

Mask bit 7 in 

Divide acc contents by 2 

and display in X-reg 

Load byte as addressing ref. tab 
If remainder left from div., Skip 
Copy contents of the 

upper nibble 

(bits 4-7) into 

lower nibble (bits 4-3) 

Mask out upper nibble (Bit 4-7) 
Not equal 0 is valid 

If code is invalid, load Y w/ $80 
and acc with $00 
Displacement not transfer to X 
Get addressing key from tab - 
and put in $0AAA 

Mask out bits 2-7 — 

Store bits 0,1(cmd. length) 
Copy test code in acc 

Mask out bits 4,5,6 

Store masked out value in X 
Copy test code in acc 

Initialize loop counter with 3 
Cmp masked-out value w/ $8A 
Equal, then skip 

Divide acc contents by 2 

If no remainder, then skip 
Divide acc contents by 2 
Divide acc contents by 2 

Set bit 5 in acc 

Decrement loop counter by 1 
Not equal to 0, continue loop 
Loop number incremented by 1 
Decrement loop counter by 1 
Not equal to 0, divide further 
Return from subroutine 
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KKEEKKKEKKKKKEKKEKKEKKKKEKKKKKKKKKKK 


B6A1: 
B6A2: 
B6A5: 
B6A7: 
B6AA: 
B6AC: 
B6AE: 
B6B0: 
B6B2: 
B6B4: 
B6B5: 
B6B6: 
B6B8: 
B6BA: 
B6BD: 
B6BE: 
B6COQ: 


A8 
B9 
85 
B9 
85 
AY 
A0 
06 
26 
2A 
88 
DO 
69 
20 
CA 
DO 
4c 


21 B/7 
63 
61 
64 
00 
05 
64 
63 


B7/ 


F8 
3F 
D2 FF 
EC 

A8 B8 


$B721,Y 


* $63 


$B761,¥Y 


x $64 
# $00 
# $05 
* $64 
* $63 
A 


SB6B0 
# $3F 


SFFD2 


SB6AC 
SB8A8 


KAEKKKKKEKKEKKKKKKKKKEKRKEKRKKKKKKKKK 


B6C3: 
B6CB: 
B6D3: 
B6DB: 
B6E3: 
B6EB: 
B6F3: 
B6FB: 
B703: 


40 
30 
40 
40 
00 
11 
10 
10 
62 


02 
22 
02 
02 
22 
22 
22 
22 
13 


45 
45 


03 
33 


DO 
DO 
DO 
DO 
DO 
DO 
DO 
DO 


08 
08 
08 


40 
40 
40 
40 
44 
44 
40 
40 


09 
09 
09 
09 
00 
9A 
09 
09 


KKEEKKKKEKKKKRKEKEKEKKEKRKKKKKKEEKKKKKEK 


B707: 
B7OB: 
B7OF: 
B713: 


B714: 


00 
00 
91 
85 


9D 


21 81 
00 59 
92 86 


82 
4D 
4A 


-Byte $9D 
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Prepare and send a char. for 
mnemonic display 


Cmd code as display to Y-reg 
Get byte from mnemonic table 1 
and put in OP2 (low) 

Get byte from mnemonic table 2 
and put into OP2 (high) 

Load accu w/ 0 

Shift 5 bits of OP2 2-byte addr. 

to the left; put bits into accu | 
Loop until all five 

bits are shifted. The 

addition of 

the number $3F gives a valid 
char or a <?> 

Kernal BSOUT: output one char 
3 loops for the 3 letters from the 
16-bit value in addr lo/hi in OP2 
<SPACE><CR><crsr-up>:RTS 


Address reference table 


Address types & length key 


-1/#$ -2/*§$ -2/$ -3 
-1/ -1/($,X)-2 / ($),Y-2 

*$ X-2 / $,X -3/$,Y -3/($) -3 
*$ Y-2 


Backspace control code 
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KKEKKEKKKKKKKKKKEKKKKKKKKKKKKKKKK 


B715: 
B71B: 


2C 29 2C 23 28 24 
59 00 58 24 24 00 


KEKEKKKKKKKKRKKKKKKKKKKKKKKKKKKK 


B7/21: 
B729: 
B731: 
B739: 
B7/41: 
B7/749: 
B751: 
B759: 


1c 
9D 
00 
24 
00 
AE 
15 
84 


8A 
8A 
29 
53 
1A 
AE 
9C 
13 


1c 
1D 
19 
1B 
5B 
A8 
6D 
34 


23 
23 
AE 
23 
a8 
AD 
9C 
i 


5D 
9D 
69 
24 
A5 
29 
A5 
A5 


8B 
8B 
A8 
53 
69 
00 
69 
69 


1B 
1D 
19 
19 
24 
7C 
29 
ZS 


Al 
Al 
23 
Al 
24 
00 
53 
A0 


KKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B761: 
B769: 
B771: 
B779: 
B781: 
B789: 
B791: 
B799: 


D8 
54 
00 
74 
00 
44 
1A 
C4 


B2 
26 
26 


48 
54 
84 
4A 
A2 
32 
26 
48 


26 
68 
74 
72 
74 
B2 
72 
44 


62 
44 
B4 
F2 
74 
00 
72 
44 


94 
E8 
28 
A4 
74 
22 
88 
A2 


88 
94 
6E 
8A 
72 
00 
C8 
C8 


KREEKKKKKKKKKKKKEKKKKEKKKKEKKKKKK 


B7A1: 


OD 20 20 20 


KKEKEKEKKKEKKKEKKKEKKEKKEKKKEKKKKKKKKKK 


B7A5: 
B7A7: 
B7AA: 
B7AC: 
B7AF: 
B7B1: 
B7B3: 


7A 
CE B7 
16 
E7 B8 
09 
7A 
B4 OA 


DEC 
JSR 
BCS 
JSR 
BNE 
DEC 
LDA 


x STA 
$B7CE 
$B7C2 
SB8E7 
SB7BA 
* STA 
SOAB4 
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Display addressing modes 


<,><)><,><#><(><$> 
<Y>< ><X><$><$><> 


Mnemonic keyword table 1 


BRK PHP BPL CLC JSR PLP BMI SEC 
RTI PHA BVC CLI RTS PLA BVS SEI 
2727? DEY BCC TYA LDY TAY BCS CLV 
CPY INY BNE CLD CPX INX BEQ SED 
2??? BIT JMP JMP STY LDY CPY CPX 
TXA TXS TAX TSX DEX 7??? NOP ??? 
ASL ROL LSR ROR STX LDX DEC INC. 
ORAANDEOR ADC STA LDA CMP SBC 


Mnemonic keyword table 2 


A byte in table 1 returns, 
with the corresponding 

value in table 2, a 

16-bit value coded as a 3- 
character mnemonic. The 16- 
bit argument 1s divided into 
three sections of 5 bits. 

Bit 0 is unused in coding. 


Monitor constant: 3 spaces 


<CR><SPACE><SPACE><SPACE> 


Test for valid separator between 
the command's operands 


Input buff pntr to previous char. 
Get OP1 operand 

Carry set=error signal 

Renew last-read char. 

If cmd-end, then continue 

Input buff pntr to previous char. 
Get error-recognition flag 
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SB7C9 


B7B6: DO 11 BNE If not equal to 0, then OK exit 
B7B8: FO OD BEQ $B7C7 No valid operand, then error exit 
B7BA: C9 20 CMP # $20 Was char. read a <SPACE>? 
B7BC: FO 0B BEQ $B7C9 Valid separator, OK exit 

B7BE: C9 2C CMP # $2C Was the char. a comma? 

B7CO: FO 07 BEQ $B7C9 Valid separator, OK exit 

B7C2: 68 PLA The addresses on the stack are 
B7C3: 68 PLA cleared, <?> is displayed, and 
B7C4: 4C BC BO JMP §$BOBC prg goes to the input wait loop 


KEKEKKKKKEKKKKKKKKKKKEKKKKKKKKKKK Exit for error in cmd-operands 


SEC 
.Byte $24 


B7C7: 
B7C8: 


38 
24 


Set carry=error signal 
skip to $B7CA 
KKEKKKKKKKKKKKKKKKKKKKKEKKKKKKKK Command operand/separator OK 


B7C9: 


18 CLC Carry clear=signal for OK 
B7CA: AD B4 0A LDA SOAB4 Load error-recognition help flag 
B7CD: 60 RTS What appears to be RTS is the 


command entry 


KAKKKKKKKKKKKKKKKKKKKKKKKEKKKKKK Init. & evaluation of a command 


parameter in OP1 


B7CE: A9 00 LDA # $00 Load acc w/ $0 for param. init. 
B7D0: 85 60 STA * $60 Clear the 3-byte cmd parameter 
B7D2: 85 61 STA * $61 No. 1 (OP1), in zero page from 
B7D4: 85 62. STA * $62 $62 (highest) to $60 (lowest) 
B7D6: 8D B4 0A STA SOAB4 Temp. memory for error control 
B7D9: 8A TXA Put X-reg in accumulator 
B7DA:: 48 PHA and save on stack 

B7DB: 98 TYA Put Y-reg in accumulator 

B7DC: 48 PHA and save on stack 

B7DD: 20 E9 B8 JSR _ S$B8E9 Test input buffer for cmd-end, 
B7EO: DO 03 BNE $B7E5 <:>,<?>.No end marker, go on 
B7E2: 4C 7E B8 JMP SB87E Exit routine w/ clear-carry 
B7E5: C9 20 CMP # $20 marker. Was it a <SPACE> ? 
B7E7: FO F4 BEQ S$B7DD Yes, then read next char. 

B7E9: A2 03 LDX # $03 Get display for 4 conver chars. 
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B/VEB: 
B7EE: 
BUFO: 
BUF1: 
B/F3: 
BUF 4: 
BUF6: 
BUJE9: 
B7FC: 
BUFF: 
B802: 
B804: 
B805: 
B807: 
B809: 
B80B: 
B80D: 
B80F: 
B811: 
B813: 
B816: 
B819: 
B81B: 
B81D: 
B820: 
B822: 
B824: 
B826: 
B828: 
B82B: 
B82C: 
B82E: 
B831: 
B833: 
B835: 
B837: 
B839: 
B83A: 
B83C: 
B83E: 


F5 
06 


F8 


7A 
8A 
8E 
B6é 
E9 
7A 


30 
715 
OA 
06 
07 
10 
6B 
B5 
B5 
61 
oF 
B4 
OA 
OA 
02 
60 
B7 


F8 
B6é 
60 
61 
62 
43 


FS 
OA 
22 


BO 


B8 
B8 
OA 
B8 


OA 
OA 


OA 


OA 


OA 


CMP 
BEQ 
DEX 
BPL 
INX 
DEC 
LDY 
LDA 
STA 
JSR 
BEQ 
SEC 
SBC 
BCC 
CMP 
BCC 
SBC 
CMP 
BCS 
STA 
CPY 
BCC 
BEQ 
INC 
CPY 
BNE 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
ASL 
ROL 
ROL 
BCS 
DEX 
BNE 
CPY 
BNE 


SBOF5,X 


SB7F6 
SB7EB 


* STA 


SB88A,X 
SB88E,X 


SOAB6 
SB8E9 


SB87E 


# $30 
SB87E 
# SOA 
$B813 
# $07 
# $10 
SB87E 
SOAB5 
SOAB5 
SB87C 
SB87C 
SOAB4 
# SOA 
SB82E 
# $02 


* $60,X 
$0AB7,X 


SB826 
SOAB6 
x $60 
* $61 
* $62 
SB87C 


$B831 
# SOA 
$B862 
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128 Internals 


Check for conversion (%&+$) 
until conversion char. is found 
Display calc. table - 1 

Loop till table through 

X-reg set to $0 (= HEX) 
Displacement ptr to input buff -1 
Load Y-reg w/ num system base 
Load accu w/ multip. factor 

for the num. system, & store it 
Test inp. buf cmd-end, <:>, <?> 
Exit from operand determination 
Set carry for subtraction 
Convert to fixed-point values 

If char <0 then exit 

Was char. a no. between 0 - 9? 
Yes, jump to hex adaptation 
Adaptation of hex numbers A - F 
If value isn't between 0 - F, then 
Exit from operand determ't rtne. 
Store established hex numbers 
Compare base w/ hex value 

If base < char, then error 

If base = char, then error 

Byte for error recognition +1 
Was decimal input chosen ? 

No, then jump to decimal init. 
Set loop counter to 2 

Copy the 3-byte operand (OP1) 
in the 3-byte temp operand for 
decimal address input 
($OAB9=highest, $0AB7= lowest) 
get counter for multip. factor 
3-byte 

operand (OP1) 

multiplied by 2 

If overflow present, then error 
Loop counter mult by 2 -1 

Loop to OP1 multiplication 

Is number base the dec. system? 
No, jump to decimal conversion 
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B8 40: 
B843: 
B846: 
B849: 
B8 4B: 
B84E: 
B850: 
B852: 
B855: 
B857: 
B859: 
B85C: 
B85E: 
B860: 
B862: 
B863: 
B866: 
B868: 
B86A: 
B86B: 


B86D: 
B86F: 


B870: 


B872: 
B874: 
B876: 
B878: 
°B87A: 


KEKEKKEKKKKEKKEKKEKEKKKKRKKRKKKKKEKKKKE 


B87C: 
B87D: 


KKKEKKKKKKEKKEKKKEKKKKKKKKKKEKKKEKKK 


B87E: 
B87F: 
B882: 
B883: 


38 
24 


18 


B7 
B8 
B9 
31 
B7 
60 
60 
B8 
61 
61 
B9 
62 
62 
1A 


B5 
60 
60 


61 
61 


62 
62 
06 
FO 
02 
83 


OA 


OA 


OA 


OA 


OA 


OA 


OA 


8C B6 OA 


68 
A8 


SEC 


CLC 
STY 
PLA 
TAY 


SO0AB7 
SOAB8 
SOAB9 
SB87C 
SOAB7 
x $60 
x $60 
SOAB8 
* $61 
* 361 
SOAB9 
* $62 
* $62 
SB87C 


SOAB5 
* $60 
* $60 


x $61 
* $61 


* $62 
* $62 
$B87C 
# SFO 
SB87C 
SB7FF 


.Byte $24 


SOAB6 
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Decimal conversion: the 3-byte 
temp operand in $AB9 - $AB7 
is multiplied by 2 

If overflow occurs, then error 
Addition of 3-byte 

temp operand in 

memory locations 
$0AB9-$0AB8-$0AB7 

to contents of 3-byte 

operand OP1 under observation 
for possible overflow. 

Result of the addition will be 
put into OP1. 

If overflow occurs, then error 
Clear w/ carry (for bin,oct,hex) 
Get determined char. value 
Add values of least significant 
OP1 place 

Load accumulator with 0 
Check for overflow by adding of 
least significant OP1 place 
Load accu with 0 

Check for overflow at 

place of OP 1 addition 

If overflow occurs, then error 
Mask out lower nibble (B. 0-3) 
If top nibble <> 0, then error 
evaluate next operand position 


Exit param. evaluate w/ error 


Set carry = error-found marker 
Skip to $B87F 


Exit parameter evaluation if OK 


Clear carry = param-OK marker 
Store base of number system 
Restore old Y contents from 
stack 
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B884: 
B885: 
B886: 
B889: 


68 
AA 
AD B4 OA 
60 


PLA 
TAX 
LDA 
RTS 


SOAB4 


KKEKKKKKKKKKKKEKKEKKKKKEKRKKKKEKKEKK 


B8 8A: 


10 OA 08 02 


KRKEEKEKKEKKRKEKKKKEKEKKEKKKKKKKKKKKKK 


B88E: 


04 03 03 O1 


KKEKKKKKEKKKKKEKRKEKKKEKKKKKKKKKKKK 


B8 92: 
B894: 
B897: 
B8 98: 
B8 9B: 
B89D: 
B89F: 
B8A0: 
B8Al1: 
B8A4: 


A5 68 

20 D2 B8 
8A 

20 D2 FF 
A5 66 

Aé 67 

48 

8A 

20 C2 B8 
68 


LDA 
JSR 
TXA 
JSR 
LDA 
LDX 
PHA 
TXA 
JSR 
PLA 


* $68 
SB8D2 


SFFD2 


* 366 
* $67 


SB8C2 


KEKKEKEKKKKKKEKKEKKKKKKKKKKKKKKKK 


B8A5: 
B8A8 : 
B8AA: 
B8AD: 


20 C2 B8 
AY 20 

4C D2 FF 
20 7D FF 


JSR 
LDA 
JMP 
JSR 


SB8C2 
# $20 
SFFD2 
SFF7D 
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128 Internals 


Restore old X contents from 
stack 

Load acc with error help pointer 
Return from subroutine 


Number system bases 
Hex, decimal, octal, binary 


Number of multiplications with 
the factor 2 for number as 


Hex, decimal, octal, binary 


OP3 contents displayed as 
5-byte ASCII 


Load A w/ hi (bank) byte (OP3) 
Acc in 2-byte ASCII: hi=A,lo=X 
ASCII code of low value in acc 
Kernal BSOUT: print a character 
Load A w/ lo(Addr-lo)byte(OP3) 
Load Xmid(Addr-hi)byte(OP3) 
Store acc on stack 

Addr-hi value from OP3 in acc 
Display acc in 2-char ASCII 
Load acc again w/ addr-lo (OP3) 


Prepare acc in ASCII, output, 
output <Blank>, for start-of-line 


Acc displayed as 2-char ASCII 
Put <Blank> in accumulator 
Kernal BSOUT: output a char 
Kernal PRIMM: output string 
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KKEKKKKKKKKKKKKKKKKKKEKKKKKKKKKK 
B8B0: OD 91 00 
KKKKKKKKKKKKKKKKKKKEKKKKKKKKKKK 


B8B3: 60 RTS 


KEKKKKKKKKKKKKKKKKEKKKKKKKKKKKK 


B8B4: AY OD LDA # SOD 
B8B6: 4C D2 FF JMP S$FFD2 
B8B9: JSR SFEF7D 


20 7D FF 


KKKEKKKKKKKKKKKEKKKKKKEKKKKKKKKKK 


B8BC: OD 1B 51 20 00 


KAKKKKKKKKKKKKKKKKKKKKKKKEKKKKK 
B8C1: 60 RTS 


KKEKEKKKKKKKKKKKKKKKKKKEKEKKKKKKK 


B8C2: 8E AF OA STX SOAAF 
B8C5: 20 D2 B8 JSR $B8D2 
B8C8: 20 D2 FF JSR $FFD2 
B8CB: 8A TXA 

B8CC: AE AF OA LDX SOAAF 
B8CF: 4C D2 FF JMP SFFD2 


KKEKKKKKKKKKKKKKKKKRKEKEKEKKKKKKKKK 


B8D2: 48 PHA 
B8D3: 20 DC B8 JSR S$B8DC 
B8D6: AA TAX 
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128 Internals 


Monitor output constants 
<Cr> <Crsr Up> 

End of output routine 
Return from subroutine 


<Cr> <Cr> <Esc-Q> blank 
output 


Load <Cr> code into accu. 
Kernal BSOUT: output a char 
Kernal PRIMM: output string 


Monitor constants for carriage 
return and clear next line, blank 


<Cr> <Esc-Q> Blank 
End of output routine 
Return to subroutine 


Convert acc contents contents to 
2-byte char. and output via 
BSOUT 


Store old X-reg contents 

Acc in 2-byte ASCII: hi=A,lo=X 
Kernal BSOUT: output a char 
Load char. from X into accu. 
Restore X-register 

Kernal BSOUT: output a char 


Split acc contents and convert to 
2-byte ASCII code (X=lo, A=hi) 


Store acc contents temporarily 
Convert low nibble to ASCII 
ASCII for low nibble in X-reg 
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128 Internals 





B8D7: 
B8D8: 
B8D9: 
B8DA: 
B8DB: 


68 
4A 
4A 
4A 
4A 


PLA 


LSR 
LSR 
LSR 
LSR 


> PP Pp 


KKEKEKEKKKKKKEKKKEKKKKKKKKEKKKKKKEKK 


B8DC: 
B8DE: 
B8EO: 
B8E2: 
B8E4: 
B8E6: 


29 
C9 
90 
69 
69 
60 


OF 
OA 
02 
06 
30 


# SOF 
# SOA 
SB8E4 
# $06 
# $30 


KRKEKKKKKKKEKKRKEKKKKKEKKEKKKKEKKKKER 


B8E7: 


B8E9: 
B8EC: 
B8EE: 
B8F1: 
B8F3: 
B8F5: 
B8EF7: 
B8F9: 
B8FA: 
B8EC: 
B8FF': 
B900: 


AF OA 


00° 02 


AF OA 


DEC 


STX 
LDX 
LDA 
BEQ 
CMP 
BEQ 
CMP 
PHP 
INC 
LDX 
PLP 
RTS 


* STA 


SOAAF 
* S7A 
$0200,X 
SB8E9 
# S3A 
SB8F9 
# $3F 


x STA 
SOAAF 
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Restore acc contents 

Shift right 4 times so that 

the highest nibble (bits 4-7) is 
shifted into the lower nibble 
(bits 0-3) position 


Convert the lower nibble in the 
acc to ASCII code 


Mask high nibble out (bits 4-7) 
Is it anumber from 0-9? 

Yes, create ASCII code 
Character adaptation for A-F 
Generate ASCII for acc contents 
Return from subroutine 


Get 1 char. from input buffer 
and check for cmd-end,<:>,<?> 
equal flag. 


Display to input buffer - 1 (like 
CHRGOT) 

Store X-reg contents 

Load X-reg w/ display to in. buf 
Get char. from cmd input buffer 
Has $00 (cmd-end) been found? 
Is char. read a <:> ? 

Yes, exit with set equal flag 


~ Js char. read a <?> ? 


Store status of equal flag 
Displ. to input buffer+1 (next 
char.). Restore X-register 
Restore equal flag status 
Return from subroutine 
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KKKKKKKKKEKKEKKKEKKEKKKKKKKKKKKKKE 


B901: 
B903: 
B905: 
B907: 
B9Q9: 
BOOB: 
B9OD: 


A5 
85 
A5 
85 
A5 
85 
60 


60 
66 
61 
67 
62 
68 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


+ + + F F OF 


$60 
$66 
$61 
$67 
$62 
$68 


KRKEKEKKKKKKEKKEKKEKKEKKRKEKKEKKKKKKKEKKE 


B9OE: 
B9OF: 
B911: 
B913: 
B915: 
B917: 
B919: 
B9O1B: 
B9I1D: 
BOF: 
B921: 


38 
A5 
E5 
85 
A5 
ES 
85 
A5 
E5 
85 
60 


60 
66 
60 
61 
67 
61 
62 
68 
62 


SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
RTS 


+ + * + FEF F HF KF F 


$60 
$66 
$60 
$61 
$67 
$61 
$62 
$68 
$62 


KKKKEKKKKKKKKRKKKEKRKKKKEKKKKKKKEKE 


B922: 
B924: 
B927: 
B928: 
B92A: 
B92D: 
B9O2F: 
B931: 
B933: 
B935: 
B937: 


A9 
8D 
38 
A5 
ED 
85 
A5 
B9 
85 
A5 
9 


O01 
AF 


60 
AF 
60 
61 
00 
61 
62 
00 


OA 


OA 


LDA 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 


Copy contents of OP1 
($62-$61-$60) 
into OP3 ($68-$67-$66) 


Get OP1 lo(addr-lo) and copy 
into OP3 lowest (addr-lo) 

Get OP1 middle (addr-hi) and 
copy into OP3 middle (addr-hi) 
OP1 highest (bank-byte) copies 
into OP3 highest (bank-byte) 
Return to subroutine 


Store diff. OP1-OP3 in OP1 


Set carry for subtraction 

Load accu with OP1 lowest 
Subtract OP3 lowest from it 
Store result in OP1 lowest 

Load acc w/ OP1 middle 

Subtr OP3 middle (+ underflow) 
Store result in OP3 middle 

Load acc w/ OP1 highest 

Subtr OP3 highest (+underflow) 
Store result in OP1 highest 
Return from subroutine 


Subtraction: OP1 - Minuend in 
SOAAF 


Load acc w/ 1 and store as 
Minuend in $0AAF 

Set carry for subtraction 

Load accu w/ OP1 Lowest 
Subtr minuend from OP1 lowest 
Write result of subtr. back 

Load acc w/ OP1 middle 

Note underflow of lowest subtr. 
Write result of subtr. back 

Load acc w/ OP1 highest 

Note underlow of middle subtr. 
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B939: 85 62 STA * $62 Write result of subtr. back 
B93B: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKK Subtraction of constant 1 from 


operand 2 (OP2) in $65-$64-$63 


B93C: 38 SEC Set carry for subtraction 

B93D: A5 63 LDA * $63 Load acc w/ OP2 lowest 

BO3F: E9 O01 SBC # $01 Subtract 1 from it 

B941: 85 63 STA * $63 Write result of subtr. back 
B943: A5 64 LDA * $64 Load acc w/ OP2 middle 

B945: E9 00 SBC # $00 Note undeflow of lowest subtr. 
B947: 85 64 STA * $64 Write result of subtr. back 
B949: AS5 65 LDA * $65 Load acc w/ OP3 highest 
B94B: E9 00 SBC # $00 Note underflow of middle subtr. 
B94D: 85 65 STA * $65 Write result of subtr. back 
BO4F: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Addition of acc contents to OP3 
B950: A9 Ol LDA # $01 Load acc w/ addition constant 1 
B952: 18 CLC Clear carry for addition 

B953: 65 66 ADC * $66 Add contents of OP3 lowest 
B955: 85 66 STA * $66 Write result of addition back 
B957: 90 06 BCC SB95F If no overflow, then return 
B959: E6 67 INC * $67 Incr.. OP3 middle if overflow 
B95B: DO 02 BNE SB95F If no overflow, then return 
B95D: E6 68 INC * $68 Incr. OP3 highest for overflow 
BOSF: 60 RTS Return from subroutine 
KAKKKKKKKKKKKKKKKKKKKKKKKEKKKKKEK Subtr. of constant 1 from OP3 
B960: 38 SEC Set carry for subtraction 

B961: A5 66 LDA * $66 Load acc w/ OP3 lowest 

B963: E9 O01 SBC # S01 Subtract constant 1 

B965: 85 66 STA * $66 Write result 

B967: AS 67 LDA * $67 Load acc w/ OP3 middle 

B969: E9 00 SBC # $00 Take underflow into account 
B96B: 85 67 STA * $67 Write result 
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B96D: 
BOO6OF: 
B9O71: 
B973: 


A5 
E9 
85 
60 


68 
00 
68 


LDA 
SBC 
STA 
RTS 


* $68 
# $00 
* $68 


KKEKEKKKKKKKKKEKKKKKKKKKKKKKKKKKK 


B974: 
B976: 
B978: 
BOTA: 
B9TC: 
B9OTE: 
B980: 
B982: 


BO 
A5 
A4 
A6 
85 
84 
86 
60 


0c 
60 
61 
62 
04 
03 
02 


$B982 


* $60 
$61 
$62 
$04 
$03 
$02 


+ + F + OF 


KREEKKKKKKKKKEKKKKKKKKKKKKKKKKKK 


B983: 
B985: 
B988: 
B98B: 
B98D: 
B98F: 
B992: 
B994: 
B997: 
B999: 
B99C: 
BOOF: 
B9OAI: 
B9A3: 


BO 
20 
20 
BO 
AS 
8D 
ADS 
8D 
A5 
8D 
20 
A5 


85 


A5 


2A 
O01 
A7 
22 
60 
B7/ 
61 
B8 
62 
B9 
OE 
60 
63 
61 


B9 
B7 


OA 


OA 


OA 


B9 


SBOAF 
$B901 
SB7A7 
SBOAF 
* $60 
SOAB7 
* $61 
SOAB8 
* $62 
SOAB9 
SB9I0E 
* $60 
* $63 
x $61 
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Load acc w/ OP3 highest 
Account for underflow 
Write result 

Return from subroutine 


Copy (for carry clear) the 
contents of OP1 into zero page 
memory for Bank-no, PC-hi, 
PC-lo 


Return if carry set 

Load acc w/ OP1 lo (addr-lo) 
Load Y-reg w/OP1 mid (addr-hi) 
Load X-reg w/OP1 hi (bnk-byte) 
Bring in Z-P byte for PC-Lo 
Bring in Z-P byte for PC-Hi 
Bring in Z-P byte for bank-no 
Return from subroutine 


Put "from" operand in OP3 
Get "to" operand in OP1 

Copy "to" operand in OPH 
Form difference of OP1-OP3 | 
& store "step number" in OP1 
Copy "step number" in OP2 


Exit if error in command param 
Copy contents of OP1 into OP3° 
Get "to" operand in OP1 

"to" operand invalid, error exit 
Copy the contents 

of the 3-byte operand 

OP1 into the 3-byte 

temp operand in 

memory locations 
$0AB9-$0AB8-$0AB7 
Difference:OP1-OP3 in OP1 
Copy the 

contents of 

3-byte OP1 
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B9AS5: 
B9A7: 
B9AY: 
B9OAB: 
B9OAD: 
B9AE: 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B9AF: 
B9BO: 


KRKKKKKKKKKEKKEKKEKKKKKEKKEKKKKKKEKKK 


BOBI: 
B9OB4: 
B9B7: 
BOBS: 
B9BC: 
BOBE: 


B9CO:. 


B9C3: 
B9C4: 
B9C7: 
B9C9: 
B9CB: 
B9CE: 
B9OD1: 
B9D3: 
B9D6: 
BODY: 
BODB: 
B9DD: 
B9ODF: 
B9E2: 
B9ES: 
B9E7: 


B9OEA: 


85 
A5 
85 
90 
18 
24 


38 
60 


20 
20 
AY 
20 
A5 
FO 
20 
8A 
20 
A5 
Ao 
20 
20 
AY 
20 
20 
A9 
A2 
AQ 
20 
20 
A9 
20 
A9 


64 
62 
65 
02 


A5 
B9 
24 


D2 


62 
07 
D2 


D2 
60 
61 
OF 
BY 
2B 
D2 
07 
00 
08 
03 
5D 
B9 
26 
D2 
00 


B7 
B8 


FF 


B8 


FF 


B8 


B8 


FF 
BA 


BA 
B8 


FF 


STA * $64 
LDA * $62 
STA * $65 
BCC SB9AF 
CLC 

-Byte $24 


SEC 
RTS 


SB7A5 
SB8B9 
# $24 
SFFD2 
* $62 
$B9C7 
SB8D2 


SFFD2 
x $60 
* $él 
SB89F 
SB8B9 
# S2B 
SFFD2 
$SBA07 
# $00 
# $08 
# $03 
SBA5D 
SB8B9 
# $26 
SFFD2 
# $00 
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operand 

in the OP2 

operand 

If OP1 > OP3, then error exit 
Clear carry as marker for OK 
Skip to $B9BO (RTS) 


Routine exit for error 
encountered 


Set carry = error-found marker 
Return from the subroutine 


Output for conversion command 
(&%+$) 


Get the conversion value in OP1 
output <Cr> <Esc-Q> <space> 
Load accu with <$> 

Kernal BSOUT: output a char. 
Load hi of the 3-byte conv.value 
If $00, suppress leading zeros 
Acc in 2-byte ASCII: hi=A,lo=X 
ASCII for low nibble in acc 
Kernal BSOUT: output a char 
Load lo of the 3-byte conv.value 
Load mid of 3-byte conv value 
Output theses as 4 ASCII chars 
output <Cr> <Esc-Q> <space> 
Load acc with <+> 

Kernal BSOUT: output a char 
Convert OP1 to decimal — 
Marker for leading-zero suppres 
Output 8 characters 

Every 4 bits is an output digit 
Output AAO-AA3 as a decimal # 
Output <Cr> <Esc-Q) <space> 
Load acc with <&> 

Kernal BSOUT: output a char 
Marker for leading-zero suppres 
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B9YEC: 
BOEE: 
B9OFO: 
B9OF3: 
BOF 6: 
B9OFS8: 
B9OFB: 
B9OFD: 
BOFF: 
BAO]: 
BAO4: 


KKEKEKKEKKKKKKKEKKEKRKKEKKEKEKEKKKKKKKK 


BAO7: 
BAOA: 
BAOC: 
BAOE: 
BA11: 
BA12: 
BA14: 
BA17: 
BA19: 
BAIA: 
BAIB: 
BAIC: 
BALE: 
BA20: 
BA22: 
BA2 4: 
BA25: 
BA27: 
BAZA: 
BA2D: 
BA30: 
BA31: 
BA33: 
BA34: 


A2 
A0 
20 
20 
AY 
20 
AY 
A2 
A0 
20 
4C 


08 
02 
47 BA 
BY B8 
22 
D2 FF 
00 
18 
00 
47 BA 
8B BO 


OA 


OA 
OA 
OA 


LDX 
LDY 
JSR 
JSR 
LDA 
JSR 
LDA 
LDX 
LDY 
JSR 
JMP 


# $08 
# $02 
SBA47 
SB8B9 
# $25 
SFFD2 
# $00 
# $18 
# $00 
SBA47 
$B08B 


SB901 
# $00 
# $07 


SOAA0,X 


SBAOE 
SOAA7 
# $17 


* $68 
# $67 
# $66 
$BA33 


# $03 


SOAA4,X 
SOAAO0,X 
SOAA0,X 


$BA27 


# $03 
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Output 8 characters 

Every 3 bits is an output digit 
Output AAO-AA3 as an octal # 
Output <Cr> <Esc-q> <space> 
Load accumulator with <%> 
Kernal BSOUT: output a char 
Marker leading-zero suppression 
Output 18 characters 

Every bit is an output digit 
Output AAO-AA3 in binary 
Jump to input wait loop 


Convert contents of OP1 to an 
8-place decimal number in 
AAO0-AA4 


Copy contents of OP1 into OP3 
Clear AAQ-AA3 for 

decimal number 

Clear AA4-AA7 as temp counter 
for decimal conversion 

Init. one's place of temp counter 
with <1> 

Loop cntr for conversion steps 
Store dec. and interrupt status 
Disable all system interrupts 
Decimal mode ON 

Divide 3-byte value 

in OP3 

by <2> 

NO REMAINDER-‘skip dec. add 
Clear carry for decimal addition 
If a remainder is left from the 
division, add the contents 

of the four-byte temp counter 
which is held (as power of 2) 

in output memory 

(4 bytes=8 digits) 

Clear carry for decimal addition 
Multiply contents of 4-byte 
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BA36: 
BA39: 
BA3C: 
BA3F: 
BA40: 
BA42: 
BA43: 
BA45: 
BA46: 


BD 
7D 
9D 
CA 
10 
88 
10 
28 
60 


A4 0A 
A4 OA 
A4 OA 
F4 


D7 


SQOAA4,X 
SOAA4,X 


SBA3 6 


SBA1C 


KKEEKKEKKKKKKKKKKEKKKKKKRKEKKKKKKEKE 


BA47: 
BA48 : 
BA4A: 
BA4D: 
BA4F: 
BA52: 
 BAS4: 
BA57: 
BA59: 
BASC: 


KKEKEKKKKKKKKEKKKEKKEEKKKEKEKKKEKKKKK 


BA5D: 
BA60: 
BA63: 
BA66: 
BA68: 
BAOB: 
BA6E: 
BA71: 
BA74: 
BA75: 
BA76: 
BA78: 
BA79: 


48 
A5 
8D 
A5 
8D 
A5 
8D 
A9 
8D 
68 


8D 
8C 
AC 
AY 
OE 
2E 
2E 
2E 
2A 
88 
10 
A8 
DO 


A2 OA 


OA 


OA 


OA 


B4 OA 
B6 0A 
B6o OA 
00 
A3 
A2 
Al 
A0 


OA 
OA 
OA 
OA 


FO 


09 


STA 
STY 
LDY 
LDA 
ASL 
ROL 
ROL 
ROL 
ROL 
DEY 
BPL 
TAY 
BNE 


x $60 
$OAA2 
x $61 
SOAA1 
x $62 
SOAAO0 
# $00 
SOAA3 
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counter by <2> 

The contents of the temp counter 
are always the power-of-two of 
the bit being processed in OP3 


Decrement loop counter by 1 
until all steps are processed 
amounts to an SED &CLI cmd 
Return from subroutine 


Convert 3-byte OP1 operand to 
4-byte output operand OPA 


Put acc contents on stack 

Copy OP1 (low-byte) into 
OPA (middle-low-byte) 

Copy OP1 (middle) into 

OPA (middle-high) 

Copy OP1 (high) into 

OPA (high) 

Load acc with 00 and 

copy into OPA (low) 

Restore acc contents from stack 


Output of the OPA operand 
corresponds to X & Y registers 


Set flag for zero-suppression 
Store bit # for 1 output digit 
Get bit # for 1 output digit 
Initialize acc as output storage 
Shift contents of 

4-byte output operand 

one bit position to 

the left. Store 

MSB in accu 

Bit counter for 1 output digit - 1 
Loop until a digit is in acc 
Secure output digit in Y 

If not equal to 0, then output 
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BA7B: 
BA7D: 
BATE: 
BA82: 
BA8 4: 
BA87: 
BA8 9: 
BA8C: 
BA8D: 
BA8F: 


EO 
F0 
AC 
F0 
EE 
09 
20 
CA 
DO 
60 


O01 
05 
B4 0A 
08 
B4 0A 
30 
D2 FF 


D4 


# $01 
SBA84 
SOAB4 
SBA8C 
SOAB4 
# $30 
SFFD2 


SBA63 


KKEKKKKKKKKKKKKRKKKRKKKKKKKKKKKK 


BAS90: 
BA92: 
BA94: 


DO 
A2 
2C 


03 
08 


LDX 


BNE S$BA95 


# $08 


-Byte $2C 


KKKEKKKKKKEKKKKKEKEKKEKKKKKKKRKRKKKKK 


BA95: 
BA97: 
BA99: 
BAQB: 
BAYSD: 
BASE: 
BAA]: 
BAA3: 
BAAS: 
BAA7: 
BAA8 : 


BAAB: 
BAAE: 


BABO: 


BAB2: 
BAB4: 
BAB6: 


60 
04 
65 
1F 
61 
60 
00 
62 
B7 


68 FF 


E9 
7A 


B8 


24 
Ar 
00 
60 
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Test for 1st place 

Yes, output digit in any case 
Load zero-suppression flag 
Still active, don't output zero 
Turn off zero suppression 
Load acc with <space> char. 
Kernal BSOUT: output a char 
Loop counter for num. of digits 
Not equal 0--output next digit 
Return from subroutine 


Monitor command: @ 
(Disk command) 


Device addree identifier present 
Set standard device address (8) 
skip to $BA97 


Disk command routine with 
parameter for device address 


Get device # from OP 1 (low) 
Device number <4 is invalid 
Display <?>--go input wait loop 
Device address >30 is invalid 
Display <?>--go input wait loop 
Store device # in OP1 (low) 
Load bank # for LSV & filename | 
Store in OP1 bank byte 

Set filename length to 0 

Clear acc + X-reg for SETBNK 
Kernal SETBNK: Bank # for 
LSV+filename 

Read a char. from input buffer 
Displ. pointer input buf -1 (like 
CHRGOT) 

Is char. read a <$> ? 

Yes, then output directory 
Logical file number (0) in acc 
Get device # from OP1 (low) 
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BAB8 : 
BABA: 
BABD: 
BACO: 
BAC2: 
BAC4: 
BAC?7 : 
BAC9: 
BACB: 
BACD : 
BADO: 
BAD2: 
BADS5: 
BAD7: 
BADA: 
BADD : 
BADF: 
BAE2: 
BAE4: 
BAE7: 
BAEA: 
BAEC: 
BAEE: 
BAFO: 
BAF 2: 
BAF 4: 
BAF7: 
BAF9: 
BAFA: 
BAFD : 
BBOO: 


KKEKKKKKEKKKKEKKKKKEKKKKKKKKKKKE 


BBO3: 
BBOS5S: 
BBO7: 
BBO8: 
BBO9: 
BBOA: 


—E6 


AO OF 
20 BA 
20 C0 
BO 32 
A2 00 
20 C9 
BO 2B 
A6 7A 
7A 
BD 00 
FO 05 
20 D2 
90 F2 
20 CC 
20 B4 
A2 00 
20 Cé 
BO 10 
20 CF 
20 D2 
C9 OD 
FO 06 
A5 90 
29 BF 
FO FO 
20 CC 
AY 00 
38 

20 C3 
4C 8B 
4c BC 


AO FF 
A6 7A 
CA 
C8 
E8 
BD 00 


FF 
FF 


FF 


02 


FF 


FF 
B8 


FF 


FF 
FF 


FFE 


FF 
BO 
BO 


02 


LDY 
LDX 
DEX 
INY 
INX 
LDA 


# SOF 
SFFBA 
SFFCO 
SBAF 4 
# $00 
SFFC9 
SBAF4 
x S7A 
x STA 


$0200,X 


S$BAD7 
SFFD2 
SBAC9 
SFFCC 
SB8B4 
# $00 
SFFC6 
SBAF 4 
SFFCF 
SFFD2 
# SOD 
SBAF 4 
x $90 
# SBF 
SBAE4 
SFFCC 
# $00 


SFFC3 
$B08B 
SBOBC 


# SFF 
* STA 


$0200,X 
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Set secondary addr. (15) 
Kernal SETLFS: Set file param. 
Kernal OPEN: Open file 

OPEN error--CLRCH & exit 
Logical file (QO) set as output 
Kernal CKOUT: Set out channel 
If error occurs, then exit 

Set display ptr. to input buffer 
and set to next char. 

Read char. -input buffer, display 
Cmd-end--close cmd channel 
Kernal BSOUT: output a char 
OK, output next character 
Kernal CLRCH: I/O chnl reset 
<C/R> + clear rest of line 

Set logical file (0) as input 
Kernal CHKIN: Set input chnl 
If error occurs, then exit 

Kernal BASIN: read a character 
Kernal BSOUT: output a char 
Has <CR> been printed ? 

Yes, CLRCH and exit routine 
Load system status in acc 

Mask out bit 6 (= end-of-file) 
No error? Continue... 

Kernal CLRCH: I/O chnl reset 
Completely close logical file (Q) 
Set carry for CLOSE routine 
Kernal CLOSE: Close file 
Jump to input wait loop 
Display <?>--go input wait loop 


Routine for disk directory 


Set filename length counter to -1 
Get display pntr to input buffer 
and set to preceding char. 
Increment filename counter 
Display pointer to next char. 
Read char. -input buf., display 
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BBOD: 
BBOF: 
BB10: 
BB12: 
BB14: 
BB17: 
BB19: 
BB1B: 
BB1D: 
BB20: 
BB23: 
BB25: 
BB27: 
BB2A: 
BB2D: 
BB2F: 
BB31: 
BB34: 
BB36: 
BB38: 
BB3A: 
BB3D: 
BB3F: 
BB41: 
BB43: 
BB45: 
BB47: 
BB4A: 
BB4C: 
BB4E: 
BB50: 
BB53: 
BB55: 
BBD58: 
BBDSB: 
BB5D: 
BB5F: 
BB6él1: 
BB64: 
BB66: 


DO 
98 
A6é 
A0 
20 
A9 
A6é 
AO 
20 
20 
BO 
A2 
20 
20 
AO 
84 
20 
85 
A5 
DO 
20 
85 
A5 
DO 
C6 
DO 
20 
AY 
A2 
AO 
20 
A9 
20 
20 
FO 
A6é 
DO 
20 
90 
20 


FY 


7A 
02 
BD 
00 
60 
60 
BA 
CO 
CF 
00 
Co 
B4 
03 
63 
CF 
60 
90 
BA 
CF 
61 
90 
Bl 
63 
EA 
07 
00 
08 
03 
5D 
20 
D2 
CF 
09 
90 
93 
D2 
F2 
B4 


FF 


FF 
FF 


FF 
B8 


FF 


FF 


BA 


BA 


FF 
FF 


FF 


B8 


SBBO08 


* STA 
# $02 
SFFBD 
# $00 
* $60 
# $60 
SFFBA 
SFFCO 
SBAF4 
# $00 
SFFC6 
SB8B4 
# $03 
* $63 
SFFCEF 
* $60 
* $90 
SBAF 4 
SFFCF 
* $61 
x $90 
SBAF 4 
* $63 
SBB31 
SBA07 
# $00 
# $08 
# $03 
SBA5D 
# $20 
SFFD2 
SFFCF 
SBB66 
* $90 
SBAF 4 
SFFD2 
SBB58 
SB8B4 
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No cmd-end, then next char. 
Copy filename length into A 
Load filename addr.(low) X-reg 
Load filename addr.(hi) Y-reg 
Kernal SETNAM: Set filename 
Logical file (0) in acc 

Get dvc # from OP1 (low) 

Get secondary address (96) 
Kernal SETLFS: Set file param. 
Kernal OPEN: Open file 

If error occurs, then exit 

Set log. file (0) as input 

Kernal CHKIN: Set input chnl 
<C/R>-+clear rest of line 
Counter reads first 

six directory bytes 

Kernal BASIN: read a character 
Store dir char. in OP1 (low) 
Load system status in acc 

If error occurs, then exit 

Kernal BASIN: read a character 
Store directory char. in OP1 (hi) 
Load system status in acc 

If error occurs, then exit 


Decrement dir. bytes skip cntr 


Not equal to 0, read more bytes 
Prep. & display OP1 contents 

in decimal form: Output the 
length of a directory entry 

and number 

of blocks free 

Load acc with a <space> char. 
Kernal BSOUT: Char. output 
Kernal BASIN: Read a character 
$0 is signal - end of 1st dir. line 
Load system STATUS in X-reg 
If error occurs, then exit 

Kernal BSOUT: print a character 
Output next char. in dir. line 
<C/R>+clear rest of line 
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a 


BB69: 
BB6C: 
BBOE: 
BB70: 


20 El FF 
FO 86 
AO 02 
DO BD 


SFFE1 


SBAF 4 
# $02 
SBB2F 


KKEKKKKKKKEKKKKKKEKKKKKEKEKKKKKKEKE 


BB72: 


BFFB: 


BFFE: 


KKEKKKKKKKKKEKEKKKKKKEKKEKKKKKKKE 


FF FF FF . 


. FF FF FF 


00 3A 
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Kernal STOP: test for STOP key 
If STOP, goto exit routine 

Read counter for 4 dir. bytes 
Unconditional jump to dir. read 


END OF ROM monitor 


Fill characters 
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RN SS SSS SSeS SSS Ss hs Ss asGsSsssess sessment 


KAKKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


C000: 
C003: 
C006: 
C009: 
CO0C: 
COOF: 
C012: 


C015: 
C018: 
CO1B: 
CO1E: 
C021: 
C024: 
C027: 
CO2A: 
CO2D: 


C030: 


4c 
4c 
4c 
4C 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 


FF 


7B 
34 
34 
9B 
2D 
5B 
oD 
87 
BE 
6A 
37 
Cl 
A2 
94 
0C 
2E 
1B 


FF 


CO 
CC 
C2 
C2 
C7 
CC 
C5 
FC 
C6 
Cec 
CD 
C9 
CC 
Cl 
CE 
CD 
CA 


PF 


$C07B 
$CC34 
$C234 
$C29B 
$C72D 


~ $CC5B 


SC55D 
SFC87 
$Cc651 
SCC6A 
$CD57 
$c9C1 
SCCA2 
$C194 
SCE0C 
SCD2E 
SCA1B 


KKEKKKKEKKEKKKKKKKKKKKKKKKKKRKKEKK 


C033: 
CO3B: 
C043: 
CO4B: 


00 28 50 78 AO C8 FO 18 
40 68 90 B8 EO 08 30 58 
80 A8 DO F8 20 48 70 98 


Co 


KAKEKKEKKKKEKKKKKKKKKKKKKKKKKRKKKEK 


CO4C: 
C054: 
C05c: 
C064: 


04 04 04 04 04 04 04 05 
05 05 05 05 05 06 06 06 
06 06 06 06 07 07 07 07 


07 


KEKKKKKEKKKKKKKKKKKKKKKKK KKK 


C065: 
C067: 


05 


C8 


B9 C7 


(SC7B9) 
($C805) 
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Jump table for editor routines 


CINT initializes editor & screen 
DISPLAY char in A, color in X 
LP2 gets a char from IRQ buffer 
LOOPS a char from the screen 
PRINT vector for screen output 
SCRORG returns screen width 
KEY read key 

(International versions only) 
REPEAT the keyboard logic 
PLOT sets/reads cursor position 
CURSOR moves 80-cln cursor 
ESCAPE outputs ESC sequence 
PFKEY defines a function key 
IRQ jumps to editor IRQ routine 
INIT80 initializes 80-column 
SWAPPER exch. 40/80 column 
WINDOW sets left/top or 
right/lower corner of window 
Free for future extensions 


Line starts, low bytes 


$0400, $0428, $0450 
$0478, $04A0, $04C8 
$04F0, $0518, $0540 
$0568, $0590, $05B8 


Line starts, high bytes 


$05E0, $0608, $0630 
$0658, $0680, $06A8 
$06D0, $06F8, $0720 
$0748, $0770, $0798, $07C0 


Character output and keyboard 
vectors | | 
Entry: char output with CTRL 
Entry: char output with SHIFT 
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C1 C9 


C069: ($C9C1) Entry: character output with ESC 
CO6B: El C5 ($C5E1) Entry: evaluate keyboard 
CO6D: AD C6 (SC6AD) Entry: Store keypress 


KKEKKKKKKKKKEKKEKEKEKKKEKEKEKEKKKKKKKKK 


CO6OF: 
C071: 
C073: 
C075: 
C077: 
C079: 


80 
D9 
32 
8B 
80 
E4 


FA 
FA 
FB 
FB 
FA 
FB 


($FA80) 
($FAD9) 
(SFB32) 
($FB8B) 
(SFA80) 
($FBE4) 


KREKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKK 


CO7B: 
CO7D: 
C080: 
C083: 
C085: 
C087: 
C089: 
CO8B: 
CO8E: 
C090: 
C093: 
C095: 
C097: 
C099: 
CO9B: 
CO9D: 
COAO: 
COA3: 
COAS: 
COA8: 
COAA: 
COAD: 
COAF: 


A9 
OD 
8D 
AY 
25 
09 
85 
20 
A9 
20 
85 
85 
85 
85 
85 
8D 
8D 
85 
8D 
AQ 
8D 
A9 
8D 


03 
00 
00 
FB 
O01 
02 
01 
cc 
00 
80 
D8 
D7 
DO 
D1 
D6 
21. 
26 
D9 
2E 
14 
2C 
78 
2D 


DD 
DD 


FF 


FC 


OA 
OA 


OA 


OA 


OA 
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Pointer to keyboard decoder 
table 


Keyboard decoder table la 
Keyboard decoder table 2a 
Keyboard decoder table 3a 
Keyboard decoder table 4a 
Keyboard decoder table la 
Keyboard decoder table 5a 


Kernal routine: CINT 
Initialize editor and screen 


Two highest-order bits of base 
Set video because active-low | 
And save again 

Clear bit 2 of the data-direction 
Register and then set bit 1 of the 
Data direction register and 

Save again 

Kernal CLRCH: reset I/O chnils 
Reset filter, volume, and entry in 
Table for logged in cards 

Set text screen flag to "text 

Set 40/80 column flag to "40" 
Clear keyboard buffer queue 
Clear function key flag 

Reset keyboard input/get flag 
Reset pause (Ctrl-S) flag 

Reset cursor-flash flag | 
Pointer - char set in RAM/ROM 
Base address - screen text RAM 
Init. value for base pointer 

Text screen/char base pointer 
Initialization value bit-map base 
Initialize bit-map base 
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SS aS SS SSS sss lS SSS ss eee 


COFB: 9D 34 03 


C101: 2c 04 OA 


C108: BD 6F CO 
C10B: 9D 3E 03 


C113: BD A8 CE 


# $08 
SOA2F 
$C04C 
SO0A3B 
# SOA 
$0A20 
SOA28 
$0A27 
S$O0A24 
# $04 
$0A23 
$C983 
$O0A22 
$SD505 
$D505 
# $60 
SOA2B 
# SDO 
$0A34 
# S1A 


SCE74,X 
* SEO,X 
SCE8E,X 
$0A40,X 


SCOE8 
# $09 


$C065,X 
$0334,X 


SCOF8 
$0A04 
$c124 
# SOB 


SCO6F, X 
S033E,X 


$C108 
# $4C 


SCEA8 , X 


Initialization value attribute RAM 
Initialize attribute RAM base 
Load initialization value ($04) 
Initialize PAL system pointer 
Start value-keyboard buffer size 
Init. flag - keyboard buffer size 
Count pointer for flashing cursor 
Flag for cursor flash mode 

Flag: keyboard repeat delay 

Start value for count speed 

Flag: repeat speed 

Initialize TAB positions 

Flag for keyboard repeat pointer 
Set the fast serial control bit in 
the MCR of the MMU 

Start value current cursor mode 
Flag for current cursor mode 
Initialization value for the system 
pointers: clear/move line 

Loop counter for z-page init. 
ROM copy of the 40-clm screen 
Copy start values in zero page 
ROM copy of the 80-clm screen 
Copy start values into RAM 
Decrement loop counter by 1 
Loop until all values transferred 
Loop counter for page 3 init. 
ROM copy of the character and 
Keyboard vectors into RAM area 
Decrement loop counter by 1 
Loop until all values transferred 
Check bit 6 of the init. flag 

Bit set, then skip 

Loop counter for page 3 init. 
ROM copy of the keyboard de- 
coder. Table vectors RAM area 
Decrement loop counter by 1 
Loop until all values transferred 
Loop cntr for function key init. 
Copy ROM copy of the f-key 


Abacus Software 


C-128 Internals 





C116: 
C119: 
C1l1A: 
CLIC: 
C11E: 
C121: 
C124: 
C127: 
C12A: 
C12D: 
C130: 
C133: 
C136: 
C139: 
C13C: 
C13E: 
C141: 


9D 
CA 
10 
AY 
OD 
8D 
20 
20 
20 
20 
20 
20 
20 
2C 
30 
20 
60 


00 10 


EF] 

40 

04 OA 
04 OA 
2E CD 
83 C9 
24 CA 
42 Cl 
2E CD 
24 CA 
42 Cl 
05 D5 
03 


2E CD 


$1000,X 


$c113 
# $40 
S0A04 
$0A04 
SCD2E 
$C983 
SCA24 
$0142 
SCD2E 
SCA24 
$c142 
$D505 
$C141 
SCD2E 


KKKKKEKKKKEKKEKKKKKKKKKKKKKKKKKKK 


C142: 
C145: 
C148: 
C14B: 
C14D: 
C14E: 


20 
20 
20 
B4 
E8 
90 


50 Cl 
SE Cl 
A5 C4 
E4 


F5 


JSR 
JSR 
JSR 
CPX 
INX 
BCC 


$C150 
SC1L5E 
SC4A5 
* SE4 


$c145 


KKKKEKEKKKKKKKEKKKKKKKKKKKKKKKKKK 


C150: 
Cid2° 
C154: 
C156: 
C158: 
C15A: 


A6 
86 
86 
A4 
84 
84 


ES 
EB 
E8 
E6 
EC 
B9 


SE5 
SEB 
SE8 
SE6 
SEC 
SE9 


+ + + F HF F 
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lengths and strings into RAM 
Decrement loop counter by 1 
Loop until all values transferred 
Set bit 6 to "ON" and combine 
with initialization flag 

Place result in init. flag 
Switch 40/80 column mode 
Reset the tabs 
Window=whole screen 
CLR/HOME 

Switch 40/80-column mode 
Window=whole screen 
CLR/HOME 

Test if 40/80-column mode 
Jump if 80 

Switch 40/80-column mode 
Return from subtroutine 


Clear window (CLR/HOME) 


Cursor home 

Calculate start address of line X 
Clear line X 

Compare lower window border 
Increment line pointer 

If lower border not reached 


Cursor home in window 


Load upper window border into 
X-reg. Write curent cursor line 
Store as start input line 

Load left window border Y-reg 
Store the current cursor column 
And as start input column 


Abacus Software 
ee 


KAEKEKKKKKKEKKKKKKKKKKKKKKKKKKEKE 


Ci5C3 
C15E: 
C161: 
C163: 
C165: 
C166: 
C168: 
C16B: 
C16D: 
C1O6F: 
C171: 
Ci72; 
C15: 
CLT: 
C17A: 


AEKKKKKKKKKKKKKKKKKKKKKEKKKKEKK 


CLIC: 
CLUE: 
C180: 
C182: 
C184: 
C186: 
C188: 
C18B: 
C18D: 
C18F: 
C191: 
C193: 


A6é 
BD 
24 
10 
OA 
85 
BD 
29 
24 
10 
2A 
OD 
90 
OD 
85 


A5 


85 
A5 
24 
10 
29 
OD 
DO 
29 
09 
85 
60 


EB 
33 C0 
D7 
01 


E0 
4c co 
03 
D7 
06 


Z2E OA 
03 
3B OA 
El 


E0 
E2 
El 
D7 
07 
07 
2F OA 
04 
03 
D8 
E3 


LDX 
LDA 
BIT 
BPL 


AND 
ORA 
STA 
RTS 


* SEB 


$C033,X 


* $D7 
$C166 
A 

* SEO 


SC04C,X 


# $03 
* $D7 
$C177 
A 

SOA2E 
SC17A 
S$OA3B 
* SE1 


* SEO 
* SE2 
* SE1 
* $D7 
$C18D 
# $07 


— $O0A2F 


$C191 
# $03 
# $D8 
* $E3 


KAKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


C194: 
C195: 
C198: 
C19A: 
C19Cc: 


38 
AD 
29 
FO 
8D 


19 DO 
O01 
07 
19 DO 


SEC _ 


LDA 
AND 
BEQ 
STA 


$D019 
# $01 
$C1A3 
SD019 
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Set address of current line 


Get current cursor line in X-reg 
Get low-byte of start line 
Test 40/80-column mode 
Jump if 40-column mode 


Otherwise address times two 


Store low byte 

Get high byte of the start line 
Mask out bits 2-7=X MOD 4 
Test 40/80-column mode 
Jump if 40-column mode 

Else shift carry into high byte 
And add to video start address 
Unconditional jump to $C17A 
Video start address 40-column 
Store high byte 


Adapt attribute RAM address 


Current screen line, low byte 
To low byte of attrbute address 
Get high byte current screen line 
Test for 40/80-column mode 
40-column mode is active 
Mask out bits 3-7 

Add attrbute RAM base 
Unconditional jump 

Mask out bits 2-7 

Add base of color RAM 

Store the attribute high byte 
Return from the subroutine 


IRQ routine 


Set carry flag as FLAG 
Load IRR from VIC 

Test raster-line interrupt bit 
If not set then jump 

Clear the register 


Abacus Software 


C19F: 
C1A1: 
C1A3: 
C1A5: 
C1A8: 
C1AA: 
C1AC:. 
C1AE: 
CIlAF: 
C1Bl1: 
C1B3: 
C1B5: 
C1B7: 
C1BA: 
C1BD: 
C1BF:. 
CLICLe 
CLC3: 
Cc1c4: 
Cicl: 
C1c8: 
C1CB: 
C1CD: 
C1CF: 
C1D0: 
C1D3: 
C1D5: 
C1D?7: 
C1D9: 
C1DA: 
C1DC: 
C1DD: 


D8 
FF 
6F 
11 DO 
04 
40 
31 


D8 
2C 
D8 
06 
34 OA 
12 DO 
O01 
FD 
04 


2D OA 
11 DO 
7F 
20 
16 DO 
D8 
03 
BE 
10 


28 


AND 


-Byte 


ORA 
TAX 
BNE 


x SDB 
# SEF 
$C214 
$D011 
SC1AE 
# $40 
SC1DF 


x $D8 
SC1DF 
xk $D8 
$C1BD 
$0A34 
$D012 
x $01 
# SFD 
# $04 


SOA2D 


$D011 
# S7E 
# $20 


$D016 
* SD8 
SC1DA 
# SEF 

$2C 
# $10 


$C207 


KEEKKKKKEKKKKEKKKKKEKKKEKKKKKKKKKK 


C1DF: 
C1E1: 
C1E4: 
C1E6: 
C1E8: 


A9 
8D 
AS 
09 
29 


FF 
12 DO 
O01 
02 
FB 


LDA 
STA 
LDA 
ORA 
AND 


# SEF 
$D012 
* $01 
# $02 
# SEB 
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Test text/graphics 

If graphics screen enabled 
Then to appropriate routine 
Test VIC control register 1 
High byte of rester line is set 
Test extended-color mode 

Is set 

Setset carry as FLAG 

Get text/graphic mode 

Text mode - jump 

Test text/graphic mode 

Bit 6=0 means no raster line 
IRQ. Else get raster line 

and refresh storage 

Get data-direction register and 
Mask out bits 0-1 

Set bit 2 of the register 

And save configuration on stack - 
Base address of the graphics 
Save base address on stack 
Get control register 1 of the VIC 
Clear raster line 1 carry and 
Set standard bit-map mode 
Control register to Y 

Get VIC control register 2 

Test text/graphic register 
Multi-color mode set 

Clear multi-color bit 

Skip to $C1DC 

Set multi-color bit 

Control register 2 to X 
Unconditional jump 


Text mode 


Raster line is last line. 
Store as raster line 

Get data direction register 
Set bit 1 of the register 
And clear bit 2 
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C1EA: 
C1EC: 
C1ED: 
C1F0O: 
C1F1: 
C1F4: 
C1F6: 
C1F7: 
C1FA: 
C1FC: 
C1FD: 
C1FF: 
C201: 
C202: 
C204: 
C205: 
C206: 


D9 
2C 


11 
oF 


16 
EF 


08 
07 


FD 


OA 


DO 


DO 


* $D9 
SOA2C 


$p011 
# SSF 


$D016 


# SEF 


$C207 
# $07 


$C201 
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C207: 
C208: 
C20B: 
C20C: 
C20E: 
C211: 
C214: 
C216: 
C219: 
C21B: 
C21D: 
C21F: 
C22ik:: 
C223: 
C226: 
C228: 
C229: 
C22A: 
C22C: 
C22F: 


68 
8D 
68 
85 


18 


O01 
ed 
16 
13 
30 
01 
0c 
D8 
40 
06 
11 
01 


07 
87] 
E7 


DO 


DO 


DO 


DO 


DO 


FC 
C6 


$D018 


* $01 
$D011 
$D016 
$C229 
$D030 
# $01 
SC229 
* SD8 
# $40 
$C229 
$D011 
$C229 


$C233 
SFC87 
SC6E7 
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Bit 2 is then cleared 

If CHARROM in RAM. Also 
storebase address of text/graphic 
On the stack 

Get VIC control register 
Clear carry and graphics 
Control register 1 to Y 

Get VIC control register 2 
Clear multi-color bit 

Control register 2 to X 

Carry set=don't wait 

X is counter for delay loop 
Decrement the counter 

And jump if not done 

Two NOPs in the delay loop 
To perfect it 

Control register 2 back to X 


Set the IRQ register 


Get base address back 

And base address to VIC 
Get data direction register from 
Stack and save 

Control register 1 to VIC 
And control register 2 to VIC 
If carry set then skip 

Get 1/2 MHz clock register 
Mask out relevant bit 

Jump if 1 MHz 

Get text/graphic mode 

Test raster-line interrupt bit 
No raster-line interrupt 

Get control register 1 

No carry - jump 

Set carry as FLAG 

Enable all system interrupts 
Done if FLAG not set 

Call the kernal routine KEY 
Let VIC cursor flash 
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C232: 
C233: 


38 
60 


SEC 
RTS 
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C234: 
C236: 
C238: 
C23A: 
C23D: 
C23F: 
C241: 
C242: 
C243: 


A6 
FO 
A4 
B9 
C6 
E6 
58 
18 
60 


D1 
0c 
D2 
OA 10 
D1 
D2 


* $D1 
$C244 
* $D2 


$100A, Y 


* $D1 
* $D2 
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C244; 
C247: 
C24A: 
C24D: 
C24E: 
C250: 
C252: 
C254: 
C200: 
C256: 
C257: 


AC 
BD 
9D 
E8 
E4 
DO 
C6 
98 
58 
18 
60 


4A 03 
4B 03 
4A 03 


DO 
F5 
DO 


LDY 
LDA 
STA 
INX 
CPX 
BNE 
DEC 
TYA 
CLI 
CLC 
RTS 


$034A 


$034B,X 
SO034A,X 


* $DO 
$C247 
* $DO 
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C258: 
C25B: 
C25E: 
C260: 
C262: 
C264: 
C267: 
C26A: 
C26C: 


20 


20 
A5 
05 
FO 
20 
20 
C9 
DO 


2D C7 
6F CD 
DO 
D1 
FA 
9F CD 
34 C2 
OD 
EA 


JSR 
JSR 
LDA 
ORA 
BEQ 
JSR 
JSR 
CMP 
BNE 


$C72D 
SCD6F 
* $DO 
* $D1 
$C25E 
SCD9F 
$C234 
# $0OD 
$C258 
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Set carry for OK 
Return from subroutine 


Get character from KEY 


Must characters be fetched from 
keyboard buffer? NO 

Get pointer to KEY buffer 

Get character from KEY table 
Decrement the character counter 
Increment the pointer 

Enable all system interrupts 
Clear carry for "char. fetched" 
Return from subroutine 


Get character from buffer 


How many chars in the queue? 
Get character from queue 

And shift forward 

Increment the counter and move 
Characters until all characters in 
the queue are moved forward 
Offset of the keyboard queue -1 
Character to acc. 

Enable all system interrupts 
Clear carry for "char. fetched" 
Return from subroutine 


Get input line (w/<CR>) LOOP4 


Output character 

Move cursor 

# of chars in the keyboard buffer 
Plus # of chars in KEY buffer 
If empty then wait 

Set cursor 

Get character from buffer 

Is character <CR> 

No, then get next char. 
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a 


C26E: 
C270: 
G2Z7/2: 
C274: 
C277: 
C27A: 
C27D: 
C27F: 
C281: 
C283: 
C285: 
C287: 
C289: 
C28C: 
C28E: 
C290: 
C292: 
C294: 
C296: 
C298: 


85 
A9 
85 
20 
8E 
20 
A4 
A5 
30 
C5 
90 
A4 
CD 
DO 
C4 
FO 
BO 
85 
84 
4c 


D6 
00 
F4 
C3 CB 
30 OA 
B5 CB 
K6 
E8 
13 
EB 
OF 
E9 
30 OA 
04 
EA 
02 
11 
EB 
EC 
BC C2 


LDA 
STA 
JSR 
STX 
JSR 


x SD6 
# $00 
x SF4 
SCBC3 
$0A30 
SCBB5 
* SE6 
x SE8 
$C296 
* SEB 
$C296 
* SEQ 


~$0A30 


$C292 
* SEA 
$C294 
$C2A5 
x SEB 
* SEC 
SC2BC 
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C29B: 
C29C: 
C29D: 
C29E: 
C29F: 
C2A1: 
C2A3: 
C2A5: 
C2A7: 
C2A9: 
C2AB: 
C2AD: 
C2AF: 
C2B1: 
C2B3: 
C2B5: 
C2B8: 


98 
48 
8A 
48 
A5 
FO 
10 
A9 
85 
A9 
A2 
EB4 
FO 
E4 
FO 
20 
A9 


D6 
B8 
17 
00 
D6 
OD 
03 
99 
04 
9A 
03 
2D C7 
OD 


TYA 
PHA 
TXA 
PHA 
LDA 
BEQ 
BPL 
LDA 
STA 
LDA 
LDX 
CPX 
BEQ 
CPX 
BEQ 
JSR 
LDA 


*k SD6 
SC25B 
SC2BC 
# $00 
xk SD6 
# SOD 
# $03 
x $99 
SC2B5 
* SOA 
SC2B8 
$C72D 


# $OD_ 
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Set input flag 
Clear cursor mode flag 


Determine end of input line 
Save last column position 

Set line start 

Load left window-border, Y-reg 
Start of running input line 

Input line is following line 
Compare with current cursor line 
Border not reached 

Start of running input column 
Compare with last input column 
Is not the same column 
Compare with end of running in 
line is reached 

Set input/get flag to get 

Write current cursor line 

Store the current cursor column 
Get character at cursor pos./ 


Get character from screen 


Y-register (column) via acc 
Save on stack 

X-register (line) via 

Store on stack 

Get input/get flag 

To delay loop for GET 

No <CR> necessary yet 

The input/get flag is set via 
The accumulator 

ASCTI code for <CR> 
Compare code for screen with 
Standard input device 

Input device is screen 
compare with standard output d 
device. Output to screen 
BSOUT entry screen 

ASCTI code for <CR> 
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C2BA: 


DO 


39 


BNE 


SC2F5 
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C2BC: 


C2BF: 


C2C2: 
C2C4: 
C2C6: 
C2C8: 
CZCA; 
C2CC: 
C2CE: 
C2D0: 
C2D2: 


C2D4: 


C2D6: 


C2D8: 
C2DB: 


C2DD: 


C2E0: 
C2E2: 
C2E4: 
C2E6: 
C2E8 : 
C2EA: 
C2EC: 
C2EF : 
C2EL: 
C2F3: 


C2F5: 
C2F7: 
C2F8: 
C2F9: 
C2FA: 
C2FB: 
C2FD: 
C2FE: 


20 
20 
85 
29 
06 
24 
10 
09 
90 
A6é 
DO 
70 
09 


20 


A4 


CC 


90 
A4 
C4 
90 
66 
30 
20 
C9 
DO 


5c Cl 
58 CB 
EF 
3F 
EF 
EF 
02 
80 
04 
F4 
04 
02 
40 
FF 
EB 
30 OA 
OA 
EC 
EA 
04 
D6 
03 
ED 
DE 
02 
FF 
EF 


C2 


CB 


EF 


$C15C 
SCB58 
x SEF 
# $3F 
* SEF 
* SEF 
SC2CE 
# $80 
$C2D4 
x SFA4 
$C2D8 
SC2D8 
# $40 
SC2FF 
x SEB 


—$0A30 


S$C2EC 
x SEC 
* SEA 
SC2EC 
# SD6 
SC2EF 
SCBED 


# SDE 


SC2F5 
# SFF 
* SEF 


x SEF 
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Unconditional jump to end 
Character at cursor pos in ASCII 


Get address of current line 
Character and color at cursor pos 
Temp storage for print character 
Mask out bits 6/7 

The character is then converted 


to ASCII 


Not a reverse character 

Set bit 7 7 

Test former bit 7 

Flag for quote mode active 

Is active, then jump 

Test former bit 6 

Set bit 6 for ASCH 

Test for" and set flags 

Get current cursor line in Y-reg 
Last column already reached? 
No, not yet 

Get current cursor column X-reg 
Compare with end 

End line not yet reached 

Shift carry into bit 7 of $D6 

If set then new line 

Cursor one position right 
Compare to ASCII "PI" 

Is not pi 

Else load adapted pi code 
Store as print character 

Get X-register (line) via 

Acc from stack 

Get Y-register (column) 

Via ac from stack | 
Print char from temp storage ~ 
Flag for OK | 

Return from the subroutine 
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C2FF: 
~—C301: 
C303: 
C305: 
C307: 
C309: 
C30B: 


C9 
DO 
A5 
49 
85 
A9 
60 


22 
08 
F4 
O01 
F4 
22 


CMP 
BNE 
LDA 
EOR 
STA 
LDA 
RTS 


# $22 
SC30B 
* SF4 
# $01 
* SF4 
# $22 
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C30C: 
C30E: 
C310: 
C313: 
C315: 
CSi7: 
C319: 
C31A: 
C31B: 
C3LC? 
C31D: 
C31E: 
C31F: 


A5 
85 
20 
A5 
FO 
46 
68 
A8 
68 
AA 
68 
18 
60 


EF 
FO 
57 CD 
F5 
02 
F4 


LDA 
STA 
JSR 
LDA 
BEQ 
LSR 
PLA 
TAY 
PLA 
TAX 
PLA 
CLC 
RTS 


* SEF 
* SFO 
$CD57 
* SF5 
$C319 
* SF4 
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C320: 
C322: 
C324: 
C326: 
C328: 
C32A: 
CSZC% 
C32E: 
C330: 
C332: 
C333: 


09 
Abo 
FO 
09 
Aé 
FO 
C6 
24 
10 
48 
20 


40 
F3 
02 
80 
FS 
02 
FS 
F'6 
09 


B3 C8 


ORA 
LDX 
BEQ 
ORA 
LDX 
BEQ 
DEC 
BIT 
BPL 
PHA 
JSR 


# $40 
* SF3 
$C328 
# $80 
* SFS5 
$C32E 
* SF5 
* SF6 
$C33B 


$C8E3 
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Test for ("') and set flags 


Compare to quote 

Other character, then end 
Get current quote mode 
Reverse mode 

And store again 

Reload acc with ASCII value 
Return from subroutine 


BSOUT continuation 


Save current print character as 
Last-printed character 

Set cursor to current column 
Get insert mode flag 

Insert mode is not active 
Shift quote mode flag 

Get first value from stack 
And into Y-register 

Get second value from stack 
And into X-register 

Get acc from stack 

Clear carry for OK 

Return from subroutine 


Convert from ASCII to 
POKE-Code 


Set bit 2 of the acc 

Get flag for RVS mode active 
on/off. Not reverse character 
Set high-rder bit (reverse) 
Insert-mode flag 

No insert mode 

Decrement the counter 

Test auto-insert flag 

Jump if not active 

Save acc on the stack 

Screen mode behind cursor 
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C336: 
C338: 
C33A: 
C33B: 


A2 00 
86 FS 
68 


20 2F CC 


LDX 
STX 
PLA 
JSR 


# $00 
* SES 


SCC2F 
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C33E: 
C340: 
C342: 
C344: 
C346: 
C348: 
C34A: 
C34C: 
C34F: 
C302% 
C354: 
C357: 
C359: 
C35A: 
C3aC* 
C35E: 
C361: 
C362: 


C4 E7 
90 OA 
Aé EB 
BE4 E4 
90 04 
24 F8 
30 16 
20 5C 
20 ED 
90 OF 
20 74 
BO 08 
38 

24 F8 
710 04 
20 7C 
18 

60 


Cl 
CB 


CB 


C3 


CPY 
BCC 
LDX 
CPX 
BCC 
BIT 
BMI 
JSR 
JSR 
BCC 
JSR 
BCS 
SEC 
BIT 
BVS 
JSR 
CLC 
RTS 


* SE7 
$C34C 
* SEB 
x SE4 
$C34C 
xk SF8 
$C362 
$C15C 
SCBED 
$C362 
SCB74 
$C361 


* SF8 
$0362 
$C37C 
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C363: 
C365: 
C367: 
C369: 
C36B: 
C36D: 
C36F: 
C371: 
C373: 
C376: 
C377: 


A6 EB 
E4 E4 
90 0E 
24 F8 
10 06 
A5 E5 
85 EB 
BO 06 
20 A6 
18 

E6 EB 


C3 


LDX 
CPX 
BCC 
BIT 
BPL 
LDA 
STA 
BCS 
JSR 
CLC 
INC 


* SEB 
* SE4 
$C377 
* SF8 
$C373 
* SES 
* SEB 
$C379 


SC3A6 © 


* SEB 
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Set insert-mode flag 

Back to zero 

Get acc from stack again 
Output character at current pos 


Cursor at line end 


Compare, right window-border 
Right edge not yet reached 

Get current cursor line in X-reg 
Compare, lower window border 
Lower border not yet reached 
Test scroll flag 

No scrolling then end 
Determine start addr of curnt line 
Cursor one character to the nght 
No new line 

Test line overflow bit 

Line overflow bit is set 

Set carry bit for no scrolling 
Test scroll bit | 

Jump if no scrolling 

Insert line at X 

Clear carry for scrolled 

Return from the subroutine 


Perform linefeed 


Get current cursor line in X-reg 
Compare, lower window border 
Lower border not yet reached 
Test scroll bit 

Scrolling possible 

Load upper window border, acc 
Write current cursor line 
Unconditional jump to $C379 
Scrolling 

Carry clear for OK, scrolled 
Increment curent cursor line by 1 
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C379: 


4C 


5G Cl 


JMP 


$C15cC 
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C3 iG: 
C37E: 
C380: 
C382: 
C384: 
C386: 
C388: 
C38B: 
C38D: 
C38F: 
C391: 


C392: 


C395: 
C396: 


C399: 
C39A: 
C39D: 
C3A0: 
C3A3: 


Ao 
30 
B4 
90 
K6 
A6 
20 
A4 
B4 
FO 
CA 
20 
E8 
20 
CA 
20 
4c 
20 
4c 


E8 
06 
EB 
02 
E8 
EB4 
5E 
E6 
EB 
OF 


Cl 


76 CB 


83 CB 


OD C4 
88 C3 
AS C4 
93 CB 


LDX 
BMI 
CPX 
BCC 
INC 
LDX 
JSR 
LDY 
CPX 
BEQ 
DEX 
JSR 
INX 


* SE8 
$C386 
* SEB 
$C386 
* SEB 
* SE4 
SC15E 
* SE6 
* SEB 
$C3A0 


$CB76 
$CB83 
$c40D 
$C388 


SC4A5 
SCB93 
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C3A6: 
C3A8: 
C3A9: 
C3AC: 
C3AE: 


C3B0: 
C3B2: 
C3B4: 
C3B5: 
C3B8: 
C3BA: 
C3BC: 
C3BE: 
C3C0: 


Aé 
B8 
20 
90 
E4 
90 
Ao 
E8 
20 
C6 
24 
30 
C6 
Aé 


E5 


76 CB 
OA 
B4 
F'6 
E5 


85 CB 
EB 
E8 
02 
E8 
E5 


LDX 
INX 
JSR 
BCC 
CPX 
BCC 
LDX 
INX 
JSR 
DEC 
BIT 
BMI 
DEC 
LDX 


* SE5 


$CB76 
$C3B8 
* SE4 
SC3A8 
* SES 


SCB85 
x SEB 
* SE8 
$C3C0 
* SE8 
* SE5 


248 


C-128 Internals 


Determ. start addr of current line 
Insert line (at line X) 


Start of the running input line 
Line 1s a following-line 
Compare with current cursor line 
Cursorline reached? 

Incr the start of running inp line 
Load low window-border X-reg 
Set address of the current line 
Load left window-border, Y-reg 
Compare with current cursor line 
Cursor line 1s lower border 
Decrement line by 1 and then 
Test the line overflow bit 

Back to the current line 

Set/clear line overflow bit 

Back to previous line 

MOVLIN: copy a window line 
Back to the loop 

Clear line X 

Set the line carry bit 


Scroll up 


Load upper window-border in 
X-reg & increment by 1 line 
Test the line overflow bit 

No overflow in line 

Compare lower window-border 
Border not yet reached 

Load upper window-border in 
X-reg &increment by 1 

Set line overflow bit 
Decrement crnt cursor line by 1 
Test bit 7 of the input start line 
And jump if set 
Else decrement the input line 
Load upper window-border in 
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C3C2: 
C3C4: 
C3C6: 
C3C8: 
C3CB: 
C3CD: 
C3D0: 
C3D1: 
C3D4: 
C3D5: 
C3D7: 
C3D9: 
C3DB: 


E4 
BO 
C6 
20 
Ao 
20 
08 
20 
28 
90 
24 
30 
60 


DF 
02 
DF 
DC 
E5 
76 CB 


C3 


85 CB 


04 
F8 
CB 


* SDF 
$C3C8 
x SDF 
$C3DC 
* SE5 
SCB76 


SCB85 
$C3DB 


x SF8 
SC3A6 
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C3DC: 
C3DF: 
C3E1: 
C3E3: 
C3E5: 
C3E6: 
C3E9: 
C3EA: 
C3ED: 
C3EE: 
C3E 1: 


20 
A4 
B4 
BO 
E8 
20 
CA 
20 
£8 
20 
4c 


SE Cl 
E6 
E4 
OF 


76 CB 
83 CB 


OD C4 
DC C3 


JSR 
LDY 
CPX 
BCS 
INX 
JSR 
DEX 


SC15E 
x SE6 
* SE4 
SC3F4 


SCB76 


SCB83 


$C40D 
$C3DC 
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C3F4: 
C3F7: 
C3F9: 
C3FC: 
C3FF: 
C401: 
C403: 
C405: 
C406: 
C407: 


20 
AY 


A5 C4 
TF 
00 DC 
01 DC 
DF 
09 
00 


FC 


JSR 
LDA 
STA 
LDA 
CMP 
BNE 
LDY 
NOP 
DEX 
BNE 


SC4A5 
* STF 
SDCO00 
SDCO01 
# SDF 
$c40c 
# $00 


$C405 
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X-reg. Compare with cursor line 
If >= upper border, then jump 
Decrement cursor line 

Move remaining screen 

Load upper window-border into 
X-reg. Test line overflow bit 
Save flags on stack 

Clear overflow bit of current line 
And get flags back 

If carry clear then end 

Else test scroll flag 

Bit 7 set then scroll 

Return from subroutine 


Clear line X (with move) 


Announce line X 

Load left window-border, Y-reg 
Compare lower window border 
Border is reached 

Pointer points to following-line 
Test line overflow bit 

Point to current line again 
Set/clear line overflow bit 
Point back to following-line 
MOVLIN: copy window line 
Copy next line 


Poll Commodore key - wait 


Clear line X 

Flag or run/direct mode | 

In PRA inCIA for keyboard read 
Get keybaord matrix 
Commodore key pressed? 

If not pressed then end 
Commodore key is pressed 

A delay loop is executed when 
Scrolling in order to delay the 
Output somewhat 
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C409: 
C40A: 
C40C: 


88 
DO 
60 


F9 


DEY 
BNE 
RTS 


$C405 
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C40D: 
C40F: 
C411: 
C414: 
C416: 
C418: 
C41B: 
C41D: 
C420: 
C422: 
C424: 
C426: 
C428: 
C42A: 
C42C: 
C42E: 
C430: 
C432: 
C433: 
C435: 


24 
30 
BD 
85 
85 
BD 
29 
OD 
85 
29 
09 
85 
Bl 
91 
Bl 
91 
C4 
C8 
90 
60 


D7 
25 
33 
DC 
DA 
4c 
03 
3B 
DB 
03 
D8 
DD 
DA 
E0 
DC 
K2 
B7] 


F3 


C0 


CO 


OA 


BIT 
BMI 


* $D7 
SC436 


$C033,X 


* SDC 
* SDA 


SC04C,X 


# $03 
SOA3B 
* SDB 
# $03 
# $D8 
* SDD 


(SDA) ,Y 
(SEO),Y 
(SDC) ,¥Y 
($E2) ,¥ 


* SE7 


$C428 
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C436: 
C439: 
C43C: 
C43E: 
C441: 
C443: 
C446: 
C449: 
C44C: 
C44F: 
C450: 


8E 
8C 
A2 
20 
09 
20 
20 
AE 
BD 
OA 
85 


Si 
32 
18 
DA 
80 
cc 
E6 
31 
33 


DA 


OA 
OA 


CD 


CD 
CD 
OA 
CO 


STX 
STY 
LDX 
JSR 


S$0A31 
S0A32 
# $18 
SCDDA 
# $80 
SCDCC 
SCDE6 
$0A31 


$C033,X 


A 
* SDA 
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The loop counts from 0 to 
65536 and then stops 
Return from the subroutine 


MOVLIN: Copy a window line 


Test 40/80-column mode 
Jump if 80-column mode 
Get low byte of the current line 
Store low byte in $DA & $DC 


Get high byte of the current addr 
Mask out bits 2-7 

And OR with video base address 
And save 

Combine bits 0 & 1 with base 
Address of the color RAM 

And store as high byte 

Get source character and save it 
at the destination address. Then 
Get the source color &store it at 
The source address too 
Compare, right window-border 
Increment the column pointer 
Jump if not the end 

Return from the subroutine 


Copy a line in 80-column 


Store line number temporarily 
Store column 

Register 24 contains COPY bit 
And get register value 

Set COPY bit and store 
Register back in VDC 

Set update address to current pos 
Get the line to copy 

Low byte of the line to copy 
Times two because 80-column 
And store low byte 
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C452: 
C455: 
C457: 
C458: 
C45B: 
C45D: 
C45F: 
C460: 
C461: 
C463: 
C465: 
C467: 
C469: 
C46B: 
C46E: 
C46F: 
C471: 
C474: 
C475: 
C477: 
C478: 
C479: 
C47C: 
C47F: 
C481: 
C484: 
C486: 
C488: 
C48A: 
C48D: 
C490: 
C491: 
C493: 
C496: 
C499: 
C49C: 
C49E: 
C4Al1: 
C4A4: 


CC 


4c C0 
03 


2E OA 
DB 
20 


DA 
DA 
00 
DB 
DB 
CC CD 
DA 
CC CD 


B7/ 


32 OA 
32 OA 
1E 
cc 
20 
DB 
07 
2F 


CD 


OA 
CD 


DA 

CC CD 
F9 CD 
32 OA 
1E 

CC CD 
31 OA 
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Get high byte of the line to copy 
And mask out bits 3-7 

Get carry in (*2) 

Add video RAM base 

And save as high byte 
Block-start address high 

Clear carry for addition 

Get column in acc and 

Add low byte 

Start addr.+column to low byte 
Load acc with zero in order to 
Add to the high byte 

And save as the new high byte 
And as the block-start address 
Pointer to block-start addr low 
Get the low byte of the dest 
address and inform VDC 

Set carry for subtraction 

Load right window-border into 


_X-reg. Plus one 


And then into acc 


Subtract the current column 
' And save as number 


VDC word-count register 
Start copying 

Block-start address high 

Get high byte of source address 
Mask bits 3-7 out 

And add attribute RAM 

Set the registers 

Pointer to block-start address 
Low. Get source address low 
And set 

Set update address for attribute 
Get number of chars to copy 
Reg. 31 is word-count register 
Copy 

Get current line back 

Return from the subroutine 
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C4A5: 
C4A7: 
C4AA: 
C4AD: 
C4AF: 
C4Bl1: 


C4B2: 
C4B3: 
C4B5: 
C4B7: 
C4B9: 
C4BB: 
C4BD: 
C4BF: 


A4 
20 
20 
24 
30 
88 


C8 
A9 
91 
A5 
91 
C4 
DO 
60 


E6 
85 CB 
5E Cl 
D7 
OF 


20 
EO 
Fl 
E2 
E7 
F3 


LDY 
JSR 
JSR 


* SE6 
SCB85 
SC15E 
* $D7 
SC4C0 


# $20 


(SEO) ,Y 


* SF1 


(SE2) ,Y¥ 


* $E7 
$C4B2 
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C4CO0: 
C4C3: 
C4C6: 
C4C8: 
C4CB: 
C4CD: 
C4D0: 
C4D2: 
C4D3: 
C4D4: 
C4D6: 
C4D7: 
C4DA: 
C4DC: 
C4DE: 
C4E1: 
C4E4: 
C4E5: 
C4E6: 
C4E9: 


8E 
8C 
A2 
20 
29 
20 
A2 
18 
98 
65 
48 
8D 
AY 
65 
8D 
20 
E8 
68 
20 
AY 


31 0A 
32 OA 
18 
DA 
TF 
Cc CD 
12 


CD 


E0 


3C OA 
00 
El 
3D OA 
CC CD 


cc 
20 


CD 


$0A31 
$0A32 
# $18 
SCDDA 
# STF 
SCDCC 
# $12 


* SEO 


$0A3C 
# $00 
* SE1 
$0A3D 
$CDCC 


SCDCC 
# $20 
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C-128 Internals 


Clear (line X) 40 column 


Load left window-border, Y-reg 
Clear line overflow bit 

Get start address of line X 

Test 40/80 column mode 

Jump if 80-column mode 
Dummy decrement, is 
incremented again 

Increment column pointer 

Load acc with <space> 

Store space in video RAM 
Color code for char output in acc 
Store color in color RAM 
Compare right window-border 
Jump if not done 

Return from the subroutine 


Clear line - 80 column 


Save X-register 

Save Y-register 

Select register 24 

Get current value 

Clear copy bit 

And save new value 

Update address high 

Clear carry for addition 

Get column in acc 

Add start address low 

Store low address on stack 
Store the low byte 

Load acc with zero in order to 
Add the carry to the high byte 
Store the high byte 

And put in the register 
Update address low 

Get low byte from stack 

Low byte to VDC 

Load acc with space 
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C4EB: 
C4EE: 
C4EF: 
C4F1: 
C4F4: 
C4F5: 
C4F7: 
C4F8: 
C4F9: 
C4FC: 
C4FEF: 
C501: 
C504: 
C507: 
C508: 
C5SOB: 
C50D: 
C50E: 
C50F: 
CSi1:3 
CSi2: 
C514: 
C516: 
C519: 
C51A: 
C5S1B: 
COI1E: 
C521: 
C523: 
C526: 
C529: 
C52B: 
C52D: 
C530: 
Cos: 
CoS3% 
C536: 
C539: 
C53B: 


CA CD 


E7/ 
32 OA 


14 


3C 
3C 
00 
3D 
3D 


OA 
OA 


OA 
OA 


3E 
12 


C5 


B2 


00 
E3 


CC CD 


CC 
3D 
07 
2F 
3D 
Fil 
8F 
CA 


CD 
OA 


OA 
OA 


CD 


03 
3E C5 
31 0A 
B7 


SCDCA 


* SE7 
$0A32 


$C50B 


$OA3C 
SOA3C 
# $00 
SOA3D 
$OA3D 


$C53E 
# $12 


* SE2 


# $00 
x $E3 
SCDCC 


SCDCC 
SOA3D 
# $07 
SOA2F 
$O0A3D 
* SF1 
# S8F 
SCDCA 


$0536 
$C53E 
$0A31 
* SE7 
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And into VDC data register 

Set carry for subtraction 

Load right window-border in acc 
Subtract start column 

Save number on stack 

Start column = righ border 

Get number in X 

Set carry for addition 

Add low byte 

And save again 

Load acc with zero in order to 
Add the carry to the high byte — 
Save high byte 

Get number of characters in acc 
Acc in word-count register 
Update address high 

Clear carry for addition 

Get column in acc 

And add low byte attribute 

Save low byte on stack 

Load acc with zero in order to 
Add the carry 

And write the high byte into the 
Register. Update address low 
Get low byte from stack 

And write in register 

Get high byte of dest address 
Mask out bits 4-7 

And combine with dest address 
And save 

Color code for char output in acc 
Only color & ALT bit relevant 
Get reg contents from DATA reg 
Get number from stack 

If zero then jump 

Output color 

Get X-register back 

Load right window-border Y-reg 
Return from subroutine 
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Co3sC% 
C53E: 
C540: 
C543: 
C546: 
C548: 
C54A: 
C54D: 
C550: 
C252: 
C554: 
Coors 
COSA: 
C55C: 


AY 
A2 
20 
2C 
10 
A2 
20 
CD 
90 
A2 
20 
CD 
90 
60 


O1 
1E 
CC 
00 
FB 
12 
DA 
3D 
EA 
13 
DA 
3c 
E0 


CD — 


D6 


CD 
OA 


CD 
OA 


# $01 
# S1E 
SCDCC 
$D600 
$c543 
# $12 
SCDDA 
SO0A3D 
$C53C 
# $13 
SCDDA 
SOA3C 
$C53C 
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COSD: 
C55F: 
Chol: 
C563: 
C564: 
C569: 
C567: 
C569: 
C56B: 
C56D: 
C570: 
Cols: 
C576: 
C578: 
C57A: 
C57D: 
C57E: 
C581: 
C583: 
C586: 


A5 
29 
49 
4A 
4A 
85 
AO 


01 
40 
40 


D3 
58 
D4 


00 


00 
2F 
O01 
FF 
03 
97 


3E 
CC 
3F 
CD 


DC 


DO 


DC 


C6 


03 


03 


$01 
$40 
$40 


$D3 
$58 
$D4 
# $00 
$DC00 
SD02F 
SDCO01 
# SFF 
$C57D 
$C697 


+ 3k + DP P FE ste + 


$033E 
* SCC 
$033F 
* SCD 
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C-128 Internals 


Write acc times character to 
update register 


Load counter with one 

Select word-count register 

And determine value 

Test status bit 

And wait until done 

Update address high 

Get current value 

Compare w/ high byte dest addr. 
Doesn't match--correct error 
Update address low 

Get current value 

Compare with dest address low 
Doesn't match-correct error 
Return from the subroutine 


Check the keybaord matrix 


Get bit 6 from zero-page data reg 
Processor port. Bit 6 indicates if 
the 40 or 80 char set is selected 
Invert bit 6 and bring to bit 
Position 4. Reset shift flag 

And store 40/80 mode 

Code for "no key" in zero page 
Store pointer for pressed key 
Check value for matrix lines 
Responsible for matrix lines 1-8 
Responsible for matrix line 9-11 
Port B=input of matrix columns 
Check if a key is pressed 

Check which key is pressed 

No key, then continue 

Displ cntr start of keyboard table 
Copy address low of keyboard 
decoding table 1a in zero page 
Copy address high of keyboard 
decoding table 1a in zero page 
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C588: 
C58A: 
C58D: 
C58E: 
C590: 
C592: 


C595: 
C597: 
C59A: 
C59C: 
C59D: 
C5A0: 
C5A3: 
C5A5: 
C5SA6: 
C5A8: 
C5A9: 
C5AB: 
CSAD: 
C5AF: 
C5Bl1: 
C5B3: 
C5B5: 
C5B7: 
C5B9: 
C5BB: 
C5BC: 
C5BE: 
C5BF: 
C5c0: 
CoCl: 
CoC3: 
C5C5: 
C5CT: 
C5C8: 
Coco: 
C5CA: 
CSCC: 
C5CF: 


FF 
2F 


D3 
05 
00 


03 
2F 
08 


O01 
O01 
F8 


17 


CC 
08 
08 
05 
09 
03 
05 
D3 
D3 


D4 


E2 
59 
10 


C2 
00 
D3 


DO 


DC 


DO 


DC 
DC 


DC 


STA 


-Byte 


STY 
PLA 
INY 
DEX 
BNE 
CPY 
BCS 
PLA 
SEC 
ROL 
BCS 
STA 
ROL 


# SEF 
SD02F 
A 

x $D3 
$C597 
SDC00 


SC5S9A 
$D02F 
# $08 


SDCO01 
$DCO01 
$C59D 
A 

SC5BF 


(SCC) ,Y 


# $08 
$C5B7 
# $05 
SC5SBC 
# $03 
SC5BC 
xk S$D3 
xk $D3 

$2C 
xk $D4 
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Test value for keyboard matrix 
Set test lines 9-11 to high 

Bit position of the test line to 0 
Pointer if testing 1-8 or 9-11 

If testing lines 9-11 then skip 
Test value in Port A 

(matrix line 1-8) 

Skip test of matrix lines 9-11 
Test port A* (matrix lines 9-11) 
Set counter for 8 matrix columns 
Store line test value in acc 
Compare port B (output the 
matrix columns) with port B 
And wait 

Test the output value of matrix 
Columns bit by bit. C=1 -no key 
Store matrix clmns output value 
Get key code from keybrd table 
Key code 8 is the ALT key 

To corresponding evaluation 
Check if code for SHIFT, C=, 
or Ctrl. No, then continue 

Is it code for the BREAK key? 
Yes then continue for break key 
Zero-page pointer - shift pattern 
Combine with the acc 

Skip to $CSBE 

Place in zero-page for key code 
Get matrix columns text value 
Keyboard table disp. counter + 1 
Matrix column loop counter - 1 
Loop until all columns tested 
Are all lines and columns tested? 
Yes, then evaluate key press 
Get line test value from stack 
Set carry flag for shifting the 
Line test value 

Continue test matrix lines 1-8 
Set port A test value high ($FF) 
Merge bit 7 in shift pattern flag 
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C5Di: 


C5D2: 


C5D4: 
C5D5: 
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C5D7: 
C5D9: 
C5DB: 


C5DC: 
C5DE: 


KKEKEKEKKEKKKKKKKKEKKKKKKKKKKKKKKK 


C5E1: 
C5E3: 
C5E5: 
C5E7: 
C5E9: 
C5EC: 
C5EE: 
C5FO: 
C5F3: 
C5F6: 
C5F8: 
COFA: 
C5FC: 
C5FE: 
C600: 
C602: 
C604: 
C606: 
C608: 
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C60A: 
C60C: 
C60E: 


38 
66 D3 
2A 
DO B7 


06 D3 
46 D3 
68 

AS D4 
6C 3A 


C9 57 
DO 13 
24 F7 
70 SA 
AD 25 
DO 55 
AY OD 
4D 21 
8D 21 
50 30 
A5 D3 
FQ 55 
C9 10 
FO 44 
C9 08 
FQ 42 
29 07 
C9 03 
DO 25 


A5 F7 
30 43 


03 


OA 


OA 
OA 


AD 25 OA 


SEC 
ROR 
ROL 
BNE 


ASL 
LSR 
PLA 
LDA 
JMP 


LDA 
BMI 
LDA 


# SD3 
A 
SC58E 


* $D3 
* $D3 


* SD4 


($033A) 


# $57 
SC5F8 
* SF7 
$C643 
S0A25 
$C643 
# $OD 
SOA21 
SO0A21 
$C628 
* $D3 
$c651 
# $10 
$C644 
# $08 
$C646 
# $07 
# $03 
SC62F 


* SF7 
$C651 
SOA25 


Because remaining matrix lines 
9-11 are tested via port A* 
Clear bit for matrix line test 9-11 
Jump: test next matrix line 


Evaluate the keyboard result 


Eliminate the set bit 7 in the shift 
pattern flag (marker port A* test) 
Clear line test value from stack 
Code fro pressed key in acc 
Vector - keyboard read ($C5E1) 


Routine: evaluate keybaord 


Was it the "No Scroll" key? 

No, then skip 

Z-P pause flag bit 6: 1=disable 
If pause not allowed then RTS 
Load acc with last shift pattern 
Not 0, then exit via RTS 

Invert bits 0,1, and 3 of the 

Z-P pause pointer and put in the 
Zero-page pause pointer 
Keyboard repeat routine 

Get current shift pattern in acc 
No shift pattern, evaluate normal 
Was the 40 character set chosen 
Yes, then to 40 evaluation 

Was ALT keypress indicated? 
Yes, then to ALT evaluation 
Mask bits 3-7 from shift pattern 
Was C=-SHIFT switch selected? 
No, re-evaluate shift pattern 


C=/Shift character set switch 


Check flag for C= shift switch 
Switch prohibit, to repeat routine 
Get last-saved shift pattern 
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Cé6ll: 
C613: 
C615: 
C617: 
C619: 
C61B: 
C6l1D: 
C620: 
C623: 
C6Z5< 
C628: 
C62A: 
C62D: 
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C62F: 
C630: 
C632: 
C634: 
C636: 
C638: 
C63A: 
C63C: 
C63E: 
C640: 
C643: 


8D 
DO 


OA 
C9 
90 
AY 
A6 
E0 
DO 
24 
70 
8E 
60 


3E 
D7 
09 
Fl 
80 
Fl 
28 C6 
2C OA 
02 
2C 
08 
25 
22 


OA 


OA 


08 
12 
06 
D4 
OD 
OA 
F7 
06 
21 OA 


SC651 
* $D7 
$C620 
* SF1 
# $80 


* SF1 


$C628 
$OA2C 
# $02 
SOA2C 
# $08 
$0A25 
$cé651 


A 

# $08 
$C646 
# $06 
* $D4 
# $0D 
$C646 
* SF7 
SC646 
SO0A21 


KKEKEKKKKKKKKEKKKKKKKKKEKEKEKKEKKKKKK 


C644: 
C646: 
C647: 
C64A: 
C64C: 
C64F: 


AY 


AA 


BD 
85 
BD 
85 


OA 


3E 03 
cc 
3F 03 
CD 


LDA 
TAX 
LDA 
STA 
LDA 
STA 


# SOA 


$033E,X% 


* $CC 


$033F,X 


* $CD 
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C-128 Internals 


Not zero, then to repeat routine 
Check for 40/80 column screen 
Positive = 40 column screen 
Color code for char output in acc 
Invert bit 7 of the color code 
Store color code for char code 
Jump over VIC character switch 
System pointer for text/screen 
Get base and invert bit 2 of this 
Pointer 

Initialize the system pointer with 
8 for the last shift pattern 

Jump to repeat routine 


Load and evaluate decoder table 
corresponding to the shift pattern 


Multiply shift pattern for disp *2 
If shift pattern for shift or C= 
Found, then load decoder table 
Default value CTRL pattern, acc 
Check offset of the decoder table 
If it was the 13th key (S-key) 
Then set the pause flag, else skip 
Check if pause/Ctrl-s is allowed 
Not allow, evaluate decod. table 
Get pause flag with key value 13 
Return from the subroutine 


Set the start address of the 
decoder table corresponding to 
the shift pattern 


Set default value to table 5a 

# of the decoder table in X-reg 
Copy address low of decoder 
table in zero-page memory 
Copy address high of decoder 
table in zero-page memory 
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Cooks 
C653: 
C655: 
C656: 
C658: 
C65A: 
CooC:; 
C65F: 
Co66l: 
C663: 
C666: 
C668: 
C66A: 
C66C: 
C66E: 
C670: 
C672: 
C674: 
C676: 
C678: 
C67A: 
C67C: 


FO 
C9 
DO 


D4 
CC 


DS 
07 
10 
24 OA 
36 
TF 
22 OA 
16 
5A 
TF 
29 
14 
0C 
20 
08 
1D 
04 
11 
46 


x $D4 


(SCC) ,¥ 


* $D5 
SC661 
# $10 
$0A24 
$C697 
# STE 
$0A22 
SC67E 
$C6C4 
# $7F 
$C697 
# $14 
SC67E 
# $20 
SC67E 
# $1D 
SCE67E 
# $11 
SC6C4 
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C67E: 
Cé6sl: 
C683: 
C686: 
C688: 
C68B: 
C68D: 
C68F: 
C692: 
C694: 
C695: 


AC 
FO 
CE 
DO 
CE 
DO 
AQ 
8C 
A4 
88 
10 


24 OA 
05 
24 OA 
aC 
23 OA 
37 
04 
23 OA 
DO 


2D 


LDY 
BEQ 
DEC 


$0A24 
$C688 
SOA24 
SC6C4 
$0A23 
SC6C4 
# $04 
$0A23 
x SDO0 


$céCc4 
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Routine REPEAT 
Repeat the keybaord logic 


Displ. to table start in Y-reg 
Load acc with char code from 
Table and store char in X-reg 
Compare with pointer for current 
key. If equal, to repeat check 
Counter for key repeat delay 
Initialize with $10 

Jump to keypress evaluation 
Mask out bit 7, not a RVS char 
Check pointer for key repeat 
Allow all keys ($80), skip 
Now key allowed ($40), skip 
Check if "character invalid" 
Yes, the default read and RTS 
Was it the DEL key> 

Yes, then repeat evaluation 
Was it the space bar? 

Yes, then repeat evaluation 
Was it the <CRSR-right> key? 
Yes, then repeat evaluation 
Was it the <CRSR-down> key? 
No, skip repeat evaluation 


Key repeat evaluation 


Get counter for repeat delay 
Counter=0, then skip 

Repeat delay counter -1 

Not zero, default read and RTS 
Count speed for repeat -1 

Not zero, default read and RTS 
Count speed for key repeat 
Reinitialize with $04 

Offset of key buffer queue in Y 
If more than 1 character in buffer 
Then default read and RTS 
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C697: 
C69A: 
C69C: 
C69E: 
C6A0: 
C6A2: 
C6A4: 
C6A7: 
C6A8 : 
COAA: 


4E 
A4 
84 
E0 
FO 
AY 
8D 
8A 
Ao 
4c 


25 OA 
D4 
D5 
FF 
22 
00 
21 0A 
D3 

C6 FC 


LSR 
LDY 
STY 
CPX 
BEQ 


$0A25 
* $D4 
* $D5 
# SEF 
$C6C4 
# $00 
$0A21 


* $D3 
SFCCE 
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C6AD: 
C6AF: 
C6B2: 
C6B4: 
Cé6B5: 
CO6B7: 
C6B9: 
C6BC: 
Cé6BE: 
Cé6Cl: 
C6C2: 
C6C4: 
C6C6: 
C6C9: 


A2 
DD 
FO 
CA 
10 
A6 
EC 
BO 
9D 
E8 
86 
AY 
8D 
60 


09 
DD 
16 


C6 


F8 
DO 
20 OA 
06 
4A 03 


DO 
TF 
00 DC 


LDX 
CMP 
BEQ 
DEX 
BPL 
LDX 
CPX 
BCS 
STA 
INX 
STX 
LDA 
STA 
RTS 


# $09 


SC6DD, xX 


SC6CA 


SC6AF 
* $DO0 
$0A20 
$Cé6Cc4 


$034A,X 


* S$DO 
# S7E 
SDC00 
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C6CA: 
C6CD: 
C6CF: 
Cé6D1: 
C6D2: 
Cé6D4: 
Cé6éD5: 


BD 
85 
A9 
CA 
30 
18 
7D 


00 10 
D1 
00 
06 


00 10 


LDA 
STA 
LDA 
DEX 
BMT 
CLC 
ADC 


$1000,X 


* SD1 
# $00 


SC6DA 


$1000,X 
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Entry: No key pressed 


Divide last shift pattern by 2 
Copy Displ to decoder table start 
In pointer for current key 

Was it code for "no character"? 
Yes, then default read and RTS 
Reset the pause/Ctrl-S pointer 
for valid character 

Copy character code in acc 

Get current shift pattern in X-reg 
Back to kernal routine: KEY 


Evaluate and store keypress 


Loop counter - 10 function keys 
Compare acc with key code table 
Function key found, evaluate 
Decrement loop counter by 1 
Loop until all comparisons done 
Index: Keyboard buffer queue 
Compare with maximum size 
Max size reached, then skip 
Place char in keyboard buffer 
Increment keyboard buff. queue 
Index by 1 character 

Check keyboard matrix 

For default 

Return from the subroutine 


Prepare keyboard buffer for 
KEY 


Get length from KEY X 

And in KEY character counter 
The position of the KEY in the 
Entire table is detremined 
When all lengths added, end 
Else clear carry for addition 
Add length of KEY X 
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C6D8: 90 F7 BCC $C6D1 _ If no overflow, then continue 
C6DA: 85 D2 STA * SD2 Else store pointer 
C6DC: 60 RTS Return from subroutine 


KKEKKEKKKKKKKEKKKKKKKKKKEKKKKKKKKE 


Cé6DD: 
CO6DF: 
CoEL: 
COE3: 
C6E5: 
CO6E6: 


85 
86 
87 
88 
83 
84 


89 
8A 
8B 
8C 


KKKEKKKKKEKEKKKKKKKKKEKKKKKKKKKKKK 


C6E7: 
C6E9: 
COEB: 
C6EE: 
C6FO: 
C6F3: 
COF5: 
C6F8: 
COFA: 
CO6FC: 
C6FE: 


C700: 


C703: 
C705: 
C708: 
C70A: 
C70D: 
C70F: 
C712: 
C715: 
OW It 
C71A: 
CI1C: 
CIE: 
Ci2i: 


D7 
41 
27 
3C 
28 
37 
26 
CO 
C0 
2E 
14 
28 
EC 
2A 
E0 
26 
10 
29 
7¢ 
E2 
2A 
Fl 
29 
80 
40 


OA 


OA 


OA 


OA 
Cl 


OA 


OA 


CC 


BIT 
BMI 
LDA 
BNE 


* $D7 
$C72C 
$0A27 
SC72C 
$0A28 
$C72C 
$0A26 
# $CO0 
# $CO 
$C72C 
# $14 
S0A28 
x SEC 
SOA2A 


(SEO) ,Y 


$0A26 
SC71F 
$0A29 
$C17C 


(SE2),¥ 


SOA2A 
* SFI 
S0A29 
# $80 
$CC40 
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Key codes of 10 function keys 


Fl F2 
F3 F4 
F5 F6 
F7 F8 
F9 (Shift-Run) 
F10 (Help-key) 


Flash VIC cursor 


Test for 40/80 column 

If 80 column then end 

Get VIC cursor mode 

Is turned off then end 

Else decrement the flash counter 
If not zero, then end 

Get VIC cursor 

Mask out bits 0-5 

Cursor steady or turned off? 

If so then end 

Set the VIC cursor flash counter 
To $14=20 

Get current cursor column Y-Reg 
Get color at cursor pos. for flash 
Get character at current column 
Test VIC cursor mode 

Character normal again 

Char at cursor pos before flash 
Set color RAM address 

Get color at cursor position 

Save as color before flash 

Color code-char output in X-Reg 
Char at cursor pos before flash 
Invert the negative bit 

Save character and color 
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C724: 
C727: 
C729: 
C72C: 


AD 26 OA 


49 


8D 26 OA 


60 


80 


LDA 
EOR 
STA 
RTS 


S0A26 
# $80 
SOA26 


KEKKKEKKKKKEKKKKKKKKKKKKKEKKKKKKEK 


C72D: 
C72F: 
C730: 
C731: 
C732: 
Ci33* 
C734: 
C737: 
C739: 
C73B: 
C73D: 
C73E: 
C740: 
C741: 
C743: 
C145* 
C747: 
C749: 
C74B: 
C74D: 
C74F: 
Ciol; 
C153¢ 
C156: 
C757: 
C759: 
C75C: 
C75E: 
C760: 
C762: 
C764: 
C766: 


85 
48 
8A 
48 
98 
48 
AD 
DO 
85 
A9 
48 
A9 
48 
A4 
A5 
C9 
FO 
C9 
FO 


EF 


21 OA 
FB 
D6 
C3 


OB 


EC 
EF 
OD 
26 
8D 
22 
FO 
1B 
03 
BE C9 


03 
02 C8 
20 
56 
60 
03 
DF 


STA * SEF 
PHA 

TXA 

PHA 

TYA 

PHA 

LDA $0A21 
BNE $C734 
STA * $D6 
LDA # $C3 
PHA 

LDA # SOB 
PHA 

LDY * SEC 
LDA * SEF 
CMP # SOD 
BEQ $C76F 
CMP # $8D 
BEQ SC76F 
LDX * SFO 
CPX # $1B 
BNE $C756 
JMP SC9BE 
TAX 

BPL $C75C 
JMP $C802 
CMP # $20 
BCC S$C7B6 
CMP # $60 
BCC $C767 
AND # SDF 
.Byte $2C 
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Get VIC cursor mode 
Negate the flash condition 
And save again 

Return from the subroutine 


BSOUT entry for screen output 


Save character to print in z-page 
Save acc contents on stack 

Save X-reg contents on stack 
Via acc 

Save Y-reg contents on stack 
Via acc 

Check contents of z-p pause flag 
Wait until flag value is 0 

Clear input/get flag via keyboard 
High byte of continuation on 
stack, to jump to rouitine via 
RTS now the byte of the 
continuation on the stack as well 
Get current cursor column Y-Reg 
Get char to print - temp storage 
Is it a carriage return <Cr> ? 
Yes, then output <CR> 

Is it a shift-CR? 

Yes, then output <shift/CR> 
Get value of previous character 
Was it <ESC>, then handle char 
as <ESC> sequence, else to 
$C756 - evaluate ESC sequences 
Character to output to X-Reg 

Is it a character from 0 - 127 ? 
No, evalute: exteneded ASCH 

Is characetr to output < Blank ? 
Yes, then evaluate control codes 
Is it a letter? 

Yes, then output letter 

Mask out bit 5 | 

Skip to $C769 
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C767: 
C769: 
C76C: 


KKKEKKKKKEKKRKEKKKKKKRKEKKEKKEKKEKKEKKEKE 


C76EF: 
C772: 
CT 13: 
C776: 
C778: 
CU77A: 


KAEKKEKKKEKKKKKKKKKEKKKKKKKKKEKKKKK 


C77D: 
C77F: 
C781: 
C783: 
C785: 
C787: 
C789: 
C78B: 
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C78C: 
C78D: 
C78E: 
C78F: 
C790: 
CI9L: 
C792: 
C793 
C794: 
C795: 
C796: 
C797: 


29 
20 
AC 


20 
E8 
20 
A4 
84 
20 


A5 
29 
85 
AY 
85 
85 
85 
60 


02 
07 
09 
OA 
OB 
0C 
OF 
OF 
Li 
12 
13 
14 


3F 
FF C2 
22. C3 


C3 CB 


85 CB 
E6 
EC 
63 C3 


Fil 
CF 
Fl 
00 
F5 
F3 
F4 


AND 
JSR 
JMP 


JSR 
INX 
JSR 
LDY 
STY 
JSR 


# $3F 
SC2FF 
$C322 


SCBC3 


SCB85 
* SE6 
* SEC 
$C363 


SF1 
SCF 
SF1 
$00 
SF5 
SF3 
SF4 


+ + + FE + AE OF 
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Output letter 


Mask out bits 6/7 of the char 
Test for quote 
Output character 


<Carriage Return> - New line 


Search end of input line 

Clear the line overflow bit 

Of the following-line | 
Load left window-border Y-reg 
Store the current cursor position 
Execute linefeed 


Reset Quote/Insert/RVS 


Color code for char output in acc 
Reverse and flash off for VDC 
Store color code for char output 
Load acc with zero for off 

And clear the bits: insert mode 
RVS flag 

Quote-mode flag 

Return from the subroutine 


-Byte 
-Byte 
-Byte 
.Byte 
.Byte 
-Byte 
-Byte 
.Byte 
-Byte 
-Byte 
-Byte 
-Byte 


$02 
$07 
$09 
SOA 
$0OB 
SOC 
SOE 
SOf 
$11 
$12 
$13 
$14 


Control codes 


=underline on 
7=bell 
9=tab 
A=linefeed 
B=lock <Shift>/<Commodore> 
=unlock <Sh>/<C=> 
E=lower case 
F=flash on 
11=cursor up 
12=reverse on 
13=home 
14=delete 
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C798: 
C799: 


18 
1D 


-Byte 
-Byte 


$18 
Sld 
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C79A: 
C79C: 
C79E: 
C7A0: 
C7A2: 


C7A4: 


C7A6: 


C7A8: 
C7AA: 


C7AC: 


C7AE: 


C7B0: 
C7B2: 


C7B4: 


1A 
60 
53 


C8 
C9 
C9 
C9 
C8 
C8 
C8 
C8 
C8 
C8 
C8 
C9 
C9 
C8 


SC8CE6 
$C98D 
SC9O4E 
SC9BO 
SC8A5 
SC8AB 
SC87F 
SC8D4 
$C859 
$C8C1 
SC8B2 
SC91A 
$C960 
$C853 


KREKKEKEKKEKKEKKKEKKEKKKEKKEKKKKKKKRKKKK 


C7Bé6: 


C7B9: 
C7BB: 
C7BD: 
C7BF: 


CiCcks 


CiC3:; 
CICS: 
Cici?: 
C7C9: 
C7CB: 
CicD: 


6C 
C9 
FO 
Aé 
DO 
C9 
FO 
Abo 
FO 
A2 
86 
AC 


34 03 
1B 
38 
F5 
08 
14 
OB 
F4 
07 
00 
EF 
26 C3 


JMP ($0334) 
CMP # $1B 
BEQ SC7F5 
LDX * SF5 
BNE $C7C9 
CMP # $14 
BEQ $C7D0 
LDX * S$F4 
BEQ $C7D0 
LDX # $00 
STX * SEF 
JMP $C326 
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18=set/clear tab 
1D=Cursor Right 


Addresses of the routines which 
execute control codes (-1) 
Accessed via RTS. 


Underline on 
Tab 

Bell 
Linefeed 


Disable <Sh>/<C=> 


Enable <Sh>/<C=> 
Lower case 

Flash on 

Cursor up 

Reverse on 

Home 

Delete 

Set/clear tab 

Cursor right 


Execute control code 


Vector character output with Ctrl 
Is character <ESC>? 

Yes, then end 

Insert mode set? 

Yes, then output char in reverse 
Is the character <Delete>? 

Then execute 

Is the quote-mode flag set? 

If so, then reverse character 
Clear the last-printed character 
In the zero-page 

And output character in reverse 
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C7D0: 
C7D2: 
C7D5: 
C7D7: 
C7D8: 
C7DA: 
C7DC: 
C7DF: 
C7E1: 
C7E2: 
C7E4: 


A2 
DD 
FO 
CA 
10 
A2 
DD 
F0 
CA 
10 
60 


OD 
8C C7 
iF 


F8 
OF 
4C CE 
04 


F8 


# SOD 
SC78C, xX 
SCTF6 


$C7D2 
# SOF 
SCE4C,X 
SCTES 


SC7DC 
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C7E5: 
C7E7: 
C7E9: 
C7EB: 


24 
30 
86 
60 


D7 
03 
Fl 


BIT 
BMI 
STX 
RTS 


* $D7 
SC7EC 
* SF1 
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C7EC: 
C7EE: 
C7FO: 
C7F3: 
CT7F5: 


A5 
29 
1D 
85 
60 


Fl 
FO 
5C CE 
Fl 


LDA 
AND 
ORA 
STA 
RTS 


* SF1 
# SFO 
SCE5C, X 
* SF1 


KKEKEKKEKKKKKKEKKKKKKKKKRKKRRK KKK 


C7F6: 
C7F7: 
C7F8: 
C7F9: 
C7EFC: 
CU7FD: 
C800: 
C801: 


9B C7 


9A C7 


TXA 
ASL 
TAX 
LDA 
PHA 
LDA 
PHA 
RTS 


$C79B,X 


SC79A,X 
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C-128 Internals 


Compare A with possible control 
codes 


X is the counter for ctrl codes 
Compare with the table 
Found? Then jump to execution 
Else decrement the counter and 
Compare with next value 
Compare with the 16 possible 
Codes for changing the color 
Jump if found 

Else decrement counter and 
Compare with next value 
Returns from the subroutine 


Set color - 40-column 


Test 40/80-column mode 

Jump if 80-column mode 

Store color code for char outout 
Return from subroutine 


Set color - 80-column mode 


Color code for char output in acc 
Mask out lower nibble (bits 0-3) 
OR with color code table 

Store color code for char output 
Return from subroutine 


Execute control codes 


Pointer to acc and then 

Multiply by two because a 
16-bit value is being fetched 
Get low byte of the start address 
In acc and get 

High byte of the start address 

In acc. Accessed via 

RTS 
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C802: 
C805: 
C807: 
C809: 
C80B: 
C80D: 
C80F: 
C811: 
C814: 
C816: 
C818: 
C81A: 
C81D: 
C81F: 
C821: 
C824: 
C826: 
C828: 
C82A: 
C82C: 
C82E: 
C830: 
C832: 
C834: 
C836: 
C838: 
C83B: 
C83D: 
C83F: 
C842: 
C844: 
C846: 
C849: 
C8 4B: 
C84D: 
C850: 
C852: 


6C 
29 
C9 
90 
C9 
DO 
AY 
4c 
A6 
FO 
09 
4c 
C9 
DO 
4C 
Abo 
DO 
C9 
FO 
C9 
FO 
C9 
FO 
C9 
DO 
4c 
C9 
DO 
4c 
C9 
DO 
4c 
C9 
DO 
4c 
09 
DO 


36 03 
TF 
20 
09 
TF 
02 
SE 
20 C3 
F4 
05 
40 
26 C3 
14 
03 
E3 C8 
FS 
FO 
11 
3B 
1D 
45 
OE 
5E 
12 
03 
BF C8 
02 
03 
CE C8 
OF 
03 
DC C8 
13 
03 
42 cl 
80 
86 


($0336) 


# STF 
# $20 
$c814 
# STE 
$c811 
# SSE 
$C320 
x SPF4 
$C81D 
# $40 
$C326 
# $14 
$C824 
$C8E3 
* SF5 
$C818 
# $11 
$C867 
# $1D 
$C875 
# SOE 
$C892 
# $12 
$C83B 
SC8BF 
# $02 
$C8 42 
SC8CE 
# SOF 
$c849 
S$C8DC 
# $13 
$c850 
$c142 
# $80 
SC7DA 
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Analyze extended ASCII 


Vector char output with shift 
Mask out bit 7, not shifted 
Compare with <space> 
Less than 32 

Is it ASCII code 127? 

If not then jump 

ASCII code for up-arrow 
And output 

Get quote-mode flag 

Jump if not set 

Else set bit 6 

Output as reverse character 
Is the character <INSERT>? 
Jump if not <INSERT> 
Else execute <INSERT> 
Get insert-mode flag 

If set, then as with quote 
Compare to cursor up 
Jump if cursor-up 
Cursor-left? 

If yes, then execute 
Compare if upper case 
Jump to execution 
Reverse off? 

No, then skip 

Else clear RVS mode 
Underline on? 

If not then jump 

Else set underline mode 
Flash mode off? 

Skip if not 

Else clear flash mode 

Is it <CLR/HOME>? 

Skip if not 

Else clear window 

Clear bit 7 -- it must be a color 
And jump to evaluation 
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C854: 
C857: 
C859: 


20 
BO 
60 


ED CB 
04 


JSR 
BCS 
RTS 


SCBED 
$C85D 
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C85A: 
C85D: 


C860: 
C862: 


C863: 


C865: 
C866: 


20 
20 
BO 
38 
66 
18 
60 


63 C3 
74 CB 
03 


E8 


JSR 
JSR 
BCS 
SEC 
ROR 
CLC 
RTS 


$C363 
$CB74 
$SC865 


# SE8 


KRKEEKKKKKKKKEKKKKKEKKKKKKKKKKKKEKE 


C867: 
C869: 
C86B: 
C86D: 
C870: 
C872: 


Aé 
E4 
BO 
20 
C6 
4c 


ES 
EB 
F9 
5D C8 
EB 
5c Cl 


LDX 
CPX 
BCS 
JSR 
DEC 
JMP 


* SE5 
* SEB 
$C866 
$C85D 
* SEB 


SC15cC 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


C875: 
C878: 
C87A: 
C87C: 
C87E: 


20 
BO 
DO 
E6 
DO 


00 CC 


EC 
E9 
EB 
ED 


JSR° 


BCS 
BNE 
INC 
BNE 


$CC00 
$C866 
$C865 
* SEB 
$C86D 
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C880: 
C882: 
C884: 
C887: 
C889: 


24 
30 
AD 
09 
DO 


D7 
07 


2C OA 


02 
10 


BIT 
BMI 
LDA 
ORA 
BNE 


* SD7 
$C88B 
SOA2C 
# $02 
$C89B 
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Cursor right in window 


Cursor one position to the right 
New line begun 
Return from subroutine 


Cursor down 


Perform linefeed 

Test line-overflow bit 

Line too long 

Set carry and rotate 

It in the start input line 
Clear carry for OK 

Return from the subroutine 


Cursor up 


Load upper window-border in X 
Compare with current cursor line 
Is less than or equal 

Set line status 

Dec. current cursor line by 1 
Determine start addr current line 


Cursor left in window 


Cursor left 

Cursor not moved 

Cursor moved, no new line 
Incr. current cursor line by 1 
Unconditional jump 


2nd character set 


Test 40/80-column mode 
Jump if 80-column mode 

Get CHARROM base address 
Set bits O and 1 
Unconditional jump 
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C88B: 
C88D: 
C88F: 
C891: 
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C892: 
C894: 
C896: 
C899: 


C8 9B: 
C89E: 
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C89F: 
C8A1: 
C8A3: 
C8A5: 
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C8A6: 
C8A8 : 
C8AA: 
C8AC: 
C8AE: 
C8BO0: 
C8B2: 
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C8B3: 
C8B5: 
C8B7: 


A5 
09 
85 
60 


24 
30 
AD 
29 


8D 
60 


A5 
29 
85 
60 


A9 
05 
30 
AY 
25 
85 
60 


co 
DO 


Fl 
80 
Fl 


D7 
09 
2C OA 
FD 


2C OA 


Fl 
TE 
Fl 


80 
F7 
04 
TF 
EF] 
F7] 


AS FO 


13 
03 


LDA 
ORA 
STA 
RTS 


LDA 
AND 
STA 
RTS 


LDA 
ORA 
BMI 
LDA 
AND 
STA 
RTS 


* SF1 
# $80 
* $SF1 


x $D7 
SC89F 
SOA2C 
# SFD 


SOA2C 


* SF1 
# S7F 
* SF1 


# $80 
* SF7 
SC8B0 
# STF 
x SFT 
* SF7 


LDA * $F0 
CMP # $13 
BNE SC8BC 


Color code for char output in acc 
Select alternate character set 
Store color code for char output 
Return from subroutine 


<Shift> <Commodore> 


Test 40/80-column mode 
Jump if 80-column mode 

Get base address CHARROM 
Clear bits O and 1 


Store as new base address 
Return from the subroutine 


<Shift> <Commodore> 
80-column 


Color code for char output in acc 
Clear bit 7, first character set 

Set color code for char output 
Return from subroutine 


<Shift> <Commodore> 
enable/disable 


Set bit 7 to disable and OR 
With flag register 
Unconditional jump 

Clear bit 7 in order to 
Enable 

And save 

Return from subroutine 


Test for <Home>-<Home> 
combination 


Get last-printed character 
Was it HOME? 
If not, then end of the routine 
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C8B9: 20 24 CA JSR _ S$CA24 Else cancel window 

C8BC: 4C 50 Cl JMP $c150 Jump to cursor home 
KKAKKKKKKKKKKKKKKKKKKKKKKKKKEKE Set/clear reverse mode 

C8BF: A9 00 LDA # $00 Load acc with zero, clear RVS 
C8Cl: 2C -Byte $2C Skip to $C8C4 

C8C2: A9 80 LDA # $80 Set bit, turn RVS mode on 
c8c4: 85 F3 STA * $F3 And store flag 

C8C6: 60 RTS Return from subroutine 
KHAKKKKKKKKKKKKKKKEKKKEKEKKKKKKKKKK Turn underline on 

C8C7: A5 Fl LDA * SF1 Color code for char output in acc 
C8C9: 09 20 ORA # $20 Set bit 6 for underline on 

C8CB: 85 Fl STA * SF1 Store color code for char output 
C8CD: 60 RTS Return from subroutine 
KAEKKKKKKKKKKKKKKKKKKKKKKKKKKKE Turn underline off 

C8CE: A5 Fl LDA * SF1 Color code for char output in acc 
C8D0: 29 DF AND # SDF Clear bit 5, underline off 

C8D2: 85 Fl STA * SF1 Store color code for char output 
C8D4: 60 RTS Return from subroutine 
KHKKKKKKKKKKKRKK KKK RK RK ERERKKKK Set flash mode 

C8D5: A5 Fl LDA * SF1 Color code for char output in acc 
C8D7: 09 10 ORA # $10 Set bit 4 for flash on 

C8D9: 85 Fl STA * SF1 Store color code for char output 
C8DB: 60 RTS Return from the subroutine 
KEEKKKKKKKKKKKKKKKKKKKKKKKKKKK Turn flash mode off 

C8DC: A5 Fl LDA * $F1 Color code for char output in acc 
C8DE: 29 EF AND # SEF Clear bit 4, no flash 

C8EO: 85 Fl STA * SF1 Store color code for char output 
C8E2: 60 RTS Return from the subroutine 
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C8E3: 
C8E6: 
C8E9: 
C8EB: 
C8ED: 
C8EF: 
C8F1: 
C8F4: 
C8F6: 
C8F9: 
C8FC: 
C8FF: 
C902: 
C905: 
C907: 
C909: 
C9OB: 
C90D: 
C90F: 
C912: 
C914: 
C916: 
C918: 


KKEKKEKKKKEKKKKKKEKKKKKEKKKKKEKKEKKKE 


C91B: 
C9O1E: 
C921: 
C923: 
C925: 
C927: 
C929: 
C92A: 
C92D: 
C92F: 


20 
20 
B4 
DO 
C4 
90 
20 
BO 
20 
20 
20 
20 
20 
Ao 
EB4 
DO 
C4 
DO 
20 
E6 
DO 
C6 
4c 


20 
20 
BO 
C4 
90 
A6 
E8 
20 
BO 
20 


1E CC 
C3 CB 
DF 
02 
DE 
21 
3E 
22 
00 CC 
58 CB 
ED CB 
32 CC 
00 cc 
EB 
DF 
EB 
DE 
7 
27 CC 
F5 
02 
F5 
32 C9 


C3 


75 C8 
1E CC 
OF 
E7 
16 
EB 


76 CB 
OE 
271 CC 


JSR 
JSR 
CPX 
BNE 
CPY 
BCC 
JSR 
BCS 
JSR 
JSR 
JSR 
JSR 
JSR 
LDX 
CPX 
BNE 
CPY 
BNE 
JSR 
INC 
BNE 


DEC 


JMP 


JSR 
JSR 


SCC1E 
SCBC3 
x SDF 
SC8EF 
x SDE 
$c912 
$C33E 
$c918 
$CC00 
SCB58 
SCBED 
$CC32 
$CcC00 
x SEB 
xk SDF 
SC8F6 
* SDE 
SCB8F6 
$CC27 
xk SF5 
$c918 
x SF5 
$0932 


$C875 
SCC1E 
$C932 
* SET 
$C93D 
* SEB 


$CB76 
SC93D 


S$CC27 
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Perform insert 


Copy cursor coordinates 
Search for end of input line 
Compare line with cursor line 
If changed then jump 

Compare clmn with current clmn 
Smaller 

Cursor at line end 

Cannot be scrolled 

Cursor one to the left 

Get char and color cursor pos 
Cursor one to the right again 
Output character 

Cursor one position to the left 
Get current cursor line in X-reg 
Compare w/ starting cursor line 
Copy next character 

Compare col. with starting col. 
If not reached, continue 

Space at current cursor position 
Increment counter for insert 

If not zero then jump 

Else reset insert again 

Reset old cursor position 


Delete character to left of cursor 


Cursor left with bit manipulation 
Copy the cursor coordinate 
Cursor left not possible 
Compare right window-border 
Border not yet reached 

Get current cursor line in X 
Increment the line by 1 

Test overflow bit 

There is a following-line 

Else <space> at current position 
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KAEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


C932: 
C934: 
C936: 
C938: 
C93A: 


A5 DE 
85 EC 
A5 DF 
85 EB 
4c 5Cc Cl 


LDA 
STA 
LDA 
STA 
JMP 


* SDE 
* SEC 
* SDF 
* SEB 
$C15c 


KEKEKKKKKEKKKKKKKKKKKKKKKKKKKKEKE 


C93D: 
C940: 
C943: 
C946: 
C949: 
C94C: 


20 ED CB 
20 58 CB 
20 00 CC 
20 32 CC 
20 ED CB 
4C 23 C9 


JSR 
JSR 


SCBED 
SCB58 
$cc00 
SCC32 
SCBED 
$0923 


KEKKKKKKKKKKKKKKKKKKKKKKKKRKRKEKEK 


C94F: 
C951: 
C952; 
C954: 
C956: 
C959: 
C95B: 
C95C: 
C95E: 
C960: 


A4 EC 

C8 

C4 E7 

BO 06 

20 6C C9 
FO F6 

2C 

A4 E7 

84 EC 

60 


LDY 
INY 
CPY 
BCS 
JSR 
BEQ 


.Byte 


LDY 
STY 
RTS 


* SEC 


* SE7 
S$C95C 
$C96C 
$C951 

$2C 
* SE7 
* SEC 


KKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


C961: 
C963: 
C966: 
C968: 
C9O6B: 


A4 EC 

20 6C C9 
45 DA 

9D 54 03 
60 


LDY 
JSR 
EOR 
STA 
RTS 


* SEC 
$C96C 
* SDA 


$0354,X 
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Set old cursor address again 


Get column | 
Store the current cursor column 
Get line 

Write current cursor line 
Determine start address of line 


Delete character under cursor 


Cursor one to the right 

Get character and color at cursor 
Cursor one to the left 

Character at cursor position 
Cursor back to the right 

Move line to cursor 


Tab 


Get current cursor col. in Y-reg 
Increment the column pointer 
Compare right window-border 
No more tabs possible 

Get next tab position 

Cursor is at tab pos, again 

Skip to $C95E 

Right window-border to Y 
Store the current cursor column 
Return from subroutine 


Set/clear tab 


Get current cursor col. in Y-reg 
Get tab byte 

Reverse the tab bit 

And store again 

Return from subroutine 
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KKKKKKKKKEKKKKKKKEKKKKKKKKKKKKK Determine tab position 
C96C: 98 TYA Column to accumulator 
C96D: 29 07 AND # $07 Mask out bits 4-7=A MOD 7 
CO6F: AA TAX And to X-register as pointer 
C970: BD 6C CE LDA SCE6C,X Get power of 2 

C973: 85 DA STA * SDA And store in $DA 

C975: 98 TYA Column back to acc 

C976: 4A LSR A Shift acc right three times 
C977: 4A LSR A Amounting to INT(A/8) 
C978: 4A LSR A 

C979: AA TAX Back into X-reg as pointer 
C97A: BD 54 03 LDA $0354,X Get tab byte 

C97D: 24 DA BIT * SDA Test if 8th tab is set 

CO7F: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKEKKAKKKKEKKKK KKK Clear the tabs (or reset) 


C980: A9 00 LDA # $00 Load acc with zero to clear 
C982: 2c -Byte $2C Skip to $C985 

C983: A9 80 LDA # $80 Every 8th position is a tab 
C985: A2 09 LDX # $09 All 10 tab bytes 

C987: 9D 54 03 STA $0354,xX Are written with the value 
CO8A: CA DEX Decrement the counter and 
C98B: 10 FA BPL $C987 Jump if not yet done 

C98D: 60 RTS Return from subroutine 
KHKKKKKKKKKKKKKKKKKKKEKKKKKKKKKK CHR$(7) - Bell 

C98E: 24 FY BIT * $F9 Test beep flag 

C990: 30 FB BMI $C98D No beep 

C992: AQ 15 LDA # $15 Set SID volume to 

C994: 8D18D4 STA $D418 15 (maximum) 

C997: AO 09 LDY # $09 Attack/decay constant 

C999: A2 00 LDX # $00 Sustain/release constant 
C99B: 8C 05 D4 sTY SsD405 Place in the corresponding reg. 
C99E: 8E 06 D4 STX SD406 (for voice 1) 

C9A1: A9 30 LDA # $30 Define high byte of frequency 
C9A3: 8D 01D4 #£=STA $D401 For voice 1 

C9A6: A9X 20 LDA # $20 Select sawtooth 
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C9A8: 8D 04 D4 STA $D404 
C9AB: AY 21 LDA # $21 
C9AD: 8D 04 D4 STA S$D404 
C9BO: 60 RTS 


KAEKKEKKKKKKEKKKKKKKKKKKKKKEKKKKKK 


C9B1: A5 EC LDA * SEC 
C9B3: 48 PHA ~ 
C9B4: 20 C3 CB JSR $CBC3 
C9B7: 20 63 C3 JSR $C363 
C9OBA: 68 PLA 
C9BB: 85 EC STA * SEC 
C9BD: 60 RTS 


KKEEKKKKKEKEKKKEKKKKKKKKKKKKKKKKKE 


C9OBE: 6C 38 03 JMP ($0338) 
C9C1: C9 1B CMP # $1B 
C9C3: DO 05 BNE SC9CA 
C9C5: 46 EF LSR * SEF 
C9C7: 4C 7D C7 JMP $C77D 
COCA: 29 TF AND # S7F 
c9cc: 38 SEC 

C9CD: EQ 40 SBC # $40 
C9CF: C9 1B CMP # $1B 
C9D1: BO OA BCS $C9DD 
C9D3: OA ASL A 

C9D4: AA TAX 

C9D5: BD DF C9 LDA S$C9DF,X 
C9D8: 48 PHA 

C9D9: BD DE C9 LDA S$C9DE,X 
C9DC: 48 PHA 

C9DD: 60 RTS 


KKEKEKKKKKKKKKKKKKKKEKKKKKKKKKKKK 


C9DE: Y9E CA SCA9QE 
C9EO: EC CA SCAEC 
C9E2: 15 CA SCA15 
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And write to SID 

The tone is started 

By setting bit 0 

Return from subroutine 


<LF> - cursor column remains 


Get current cursor column in acc 
Save current column in acc 
Search for end of line 

Perform linefeed 

Get current column back 

Store the current cursor line 
Return from subroutine 


Execute ESC sequences 


Vector char output with ESC 

Is character <ESC>? 

Jump if another character 
Current character by 2 

Turn off all special functions 
Mask out bit 7, not reverse char 
Set carry for subtraction 
Subtract 64 from ASCII value 
Compare with 27 

Return if character greater than Z 
Acc * 2 -- 16-bit value fetched 
And then to X as pointer 

Get high byte of exec. routine 
Save on stack 

Get low byte of routine on stack 
Jump to routine via 

RTS. Address is on the stack 


Addresses of the escape routine 
<ESC> @ - Clear cursor to end 


<ESC> A - Auto-insert on 
<ESC> B - Set bottom - screen 


Abacus Software 


C9OE4: 
C9E6: 
C9EB: 
C9EA: 
C9EC: 
C9EE: 
C9OFO: 
C9F2: 
COF4: 
C9OF6: 
COF8: 
C9OFA: 
C9FC: 
COFE: 
CA00: 
CAQ2: 
CA04: 
CA06: 
CA08: 
CAOA: 
CAOC: 
CAOE: 
CA10: 
‘CA12: 


K9 
51 
OA 
20 
36 
39 
3c 
BO 
51 
El 
B4 
4] 
(Ae 
8A 
715 
3E 
Fl 
13 
FD 
BB 
C9 
2B 
82 
7F 


CD 
C9 
C9 


SCAE9 
SCA51 

SCBOA 
$CB20 
S$CB36 
SCB39 
SCA3C 
SCBBO 
SCB51 
SCAE1 

SCAE4 

SCB47 
$C77C 
SCA8A 
SCA75 

SCB3E 
SCAF1 
$CA13 
SCAFD 
SCABB 
SCAC9 
SCD2B 
$C982 

SC9OTF 


KKKKKKKKKEKKKEKEKKEKEKKKEKKKKEKEKRKEKKK 


CA14: 
CA15: 
CA16: 
CA17: 
CA19: 
CA1B: 
CA1D: 
CALF: 
CA21: 


18 
24 
38 
A6 
A5 
90 
85 
86 
4c 


EC 
EB 
11 
B4 
E7/ 
32 CA 


CLC 

-Byte $24 
SEC 

LDX * SEC 
LDA * SEB 
BCC S$CA2E 
STA * SE4 
STX * SE7 
JMP $CA32 
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<ESC> C - Auto-insert off 
<ESC> D - Delete current line 
<ESC> E - Cursor flash off 
<ESC> F - Cursor flash on 
<ESC> G - Enable beep 

<ESC> H - Disable beep 
<ESC> I - Insert line 

<ESC> J - Cursor to start of line 
<ESC> K - Cursor to end of line 
<ESC> L - Enable scrolling 
<ESC> M - Disable scrolling 
<ESC> N - Reverse off (80-col) 
<ESC> O - Inst, quote, RVS off 
<ESC> P - Clear to line start 
<ESC> Q - Clear to line end 
<ESC> R - Reverse screen (80) 
<ESC> S - Block cursor (80) 
<ESC> T - Set top of screen 
<ESC> U - Underline cursor 80 
<ESC> V - Scroll up 

<ESC> W - Scroll down 
<ESC> X - Switch 40/80-col. 
<ESC> Y - Reset tabs to normal 
<ESC> Z - Clear all tabs 


Definition of window borders 


Cursor position is top/left 

Skip to $CA17 

Cursor position is right/bottom 
Get current cursor col in X-reg 
Get current cursor line in acc 

If carry cleared: left/top! 

Define bottom of screen window 
As well as right border 

Execute remainder of routine 
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KEKKKKKKKKKKKEKKEKKKEKKEKKKKKKKEKK Define screen aS window 
CA24: A5 ED LDA * SED Get max number of lines in A 
CA26: A6 EE LDX * SEE Get max number of cols in X 
CA28: 20 1D CA JSR _ $CAI1D Define as right/bottom 

CA2B: A9 00 LDA # $00 Left/top with 0/0 

CA2D: AA TAX 

CA2E: 85 E5 STA * SE5 And define as left — 

CA30: 86 E6 STX * SE6 And top border 

CA32: A9 00 LDA # $00 Load acc with zero and 

CA34: A2 04 LDX # $04 The X-register with 4 in order to 
CA36: 9D 5D 03 #£STA $035D,X Clear the line-overflow bit 
CA39: CA DEX Decrement counter and jump 
CA3A: DO FA BNE $CA36 If not all bits cleared yet 
CA3C: 60 RTS Return from subroutine 
KEKKKKKEKKKEKKKKKKKEKKEKKKKKKKKKKK Insert line 

CA3D: 20 7C C3 JSR §$C37C Move remainder of screen to X 
CA40: 2056 Cl JSR §$C156 Cursor left - determine start addr 
CA43: E8 INX Increment the line 

CA44: 20 76 CB JSR _ $CB76 Test line-overflow bit 

CA47: 08 PHP Save the carry 

CA48: 20 81 CB JSR  S$CB81 Set/clear test-overflow bit 
CA4B: 28 PLP Get carry from stack 

CA4C: BO 03 BCS SCA51 Cursor line is start line 

CA4E: 38 SEC Else mark old line 

CA4F: 66 E8 ROR # SE8 As following-line 

CA51: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKK Delete current line 

CA52: 20 B5 CB JSR  SCBB5 Set line start address 

CA55: A5 E5 LDA * SE5 Load top of window into acc 
CA57: 48 PHA Save on stack 

CA58: A5 EB LDA * SEB Get current cursor line in acc 
CA5A: 85 E5 STA * SES Define as top of window 
CA5C: A5 F8 LDA * SF8 Save scroll flag 

CA5E: 48 PHA On stack 

CA5F: A9 80 LDA # $80 Don't scroll 
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CA61: 
CA63: 
CA66: 
CA67: 
CA69: 
CAOB: 
CA6D: 
CA6E: 
CA70: 
CA71: 
CA73: 


KHEKKKKKEKKEKKKKKKKKKKKKKKKKKKKEK 


CA76: 
CA79: 
CATC: 
CATE: 
CA81: 
CA83: 
CA86: 
CA88: 


KEKKKKKEKKKKKKEKKKEKKKKKKKKKKKKEKK 


CA8B: 
CA8E: 
CA91: 
CA93: 
CA95: 
CA98: 
CA9A: 
CA9D: 


KRKEKEKEKKKKEKKKKKKEKKKKKKRKKKKKKKKEKEK 


CAY9F: 
CAA2: 
CAA5: 


85 
20 
68 
85 
A5 
85 
68 
85 
38 
66 
4c 


20 
20 
E6 
20 
A4 
20 
BO 
4C 


20 
20 
C4 
DO 
20 
90 
20 
90 


20 
20 


F8 
B8 C3 


F8 
ES 
EB 


E5 


E8 
56 Cl 


1E CC 
AA C4 
EB 
SC Cl 
E6 
74 CB 
Fl 
32 C9 


1E CC 
27 CC 
E6 
05 
74 CB 
EE 
00 CC 
EF 


1E CC 
AA C4 


K6 EB 


STA 
JSR 


JSR 
JSR 
INC 
JSR 
LDY 
JSR 
BCS 
JMP 


JSR 
JSR 
CPY 
BNE 
JSR 
BCC 
JSR 
BCC 


JSR 
JSR 
INC 


x SF8 
SC3B8 


* SF8 
* SE5 
* SEB 


* SE5 


# SE8 
$C156 


SCC1E 
SC4AA 
* SEB 
$C15c 
* SE6 
SCB74 
SCA79 
$C932 


SCC1E 
$CC27 
* SE6 
SCA9A 
$CB74 
SCA88 
$CCO00 
SCA8E 


SCC1E 
SC4AA 
* SEB 


Enable 

Scroll up 

Get scroll flag back 

And reconstruct 

Load top of window into acc 
Write current cursor line 

Get top of window 

And write back 

Set carry in order to write to $E8 
Mark as following-line 
Cursor left window border 


Delete from cursor to end of line 


Save cursor coordinates 
Clear current line at cursor 
Incr. current cursor line by 1 
Determine line start address 
Load left window-border in Y 
Test line-overflow bit 

Clear following-line too 

Set old cursor address 


Delete from line start to cursor 


Save cursor coordinates 

Space at current cursor position 
Compare w/ left window-border 
Not yet reached 

Test line-overflow bit 

No overflow, then end 

Else cursor left 

If moved then clear line 


Delete from cursor pos to end of 
line 


Save cursor coordinates 
Delete line 
Incr. current cursor line by 1 
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CAA7: 205C Cl JSR $cC15C Determine start addr. cursor line 
CAAA: A4 E6 LDY * SE6 Load left window-border Y-reg 
CAAC: 20 74 CB JSR _  S$CB74 Test line overflow bit 

CAAF: BO Fl BCS S$CAA2 Line not yet done 

CAB1: A5 EB LDA * SEB Get current cursor line 1n acc 
CAB3: C5 E4 CMP * SE4 Compare lower window border 
CAB5: 90 EB BCC $CAA2 Lower border not yet reached 
CAB7: FO E9 BEQ S$CAA2 Lower border reached 

CAB9: 4C 32 C9 JMP $C932 Reset old cursor address 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKE Scroll up 

CABC: 201ECC JSR  SCCI1E Save cursor coordinates 
CABF: 8A TXA Line to acc and 

CACO: 48 PHA Then save on stack 

CAC1: 20 A6 C3 JSR $C3A6 Perform scroll-up 

CAC4: 68 PLA Get line back from stack 
CAC5: 85 DF STA * SDF And store 

CAC7: 4C 32 C9 JMP $C932 Old cursor coordinates back 
KKEKKKKKKKKKKKKKKKKEKKEKKKKKKKEKK Scroll down 

CACA: 20 1ECC JSR  SCCI1E Save cursor coordinates 
CACD: 20 74 CB JSR_ $CB74 Test line-overflow bit 

CADO: BO 03 BCS $CAD5 Line is not overflow line 
CAD2: 38 SEC Mark that input line is not 
CAD3: 66 E8 ROR # SE8 Start line 

CAD5: AS E5 LDA * SE5 Load top of window in acc 
CAD7: 85 EB STA * SEB Write current cursor line 
CAD9: 20 7C C3 #£JSR $C37C Scroll down 

CADC: 20 85 CB JSR_ $CB85 Clear line-overflow bit 

CADF: 4C 32 C9 JMP $C932 Old cursor coordinates back 
KHKKKKKKKKKKKKKEKKKKKAKKKKKK KK Enable/disable scrolling 
CAE2: A9 00 LDA # $00 Enable scrolling 

CAE4: 2C .Byte $2C Skip to $CAE7 

CAE5: A9 80 LDA # $80 Disable scrolling 

CAE7: 85 F8 STA * SF8 Store scroll flag 

CAE9: 60 RTS Return from subroutine 
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KKKEKKKKKKKKKKEKRKEKKKKEKKKKKKKKKK 


CAEA: 
CAEC: 
CAED : 
CAEF: 
CAFI1: 


KEKKKKKKKKKKKEKKEKKEKRKKKKKKKKKKKK 


CAF2: 
CAF 4: 
CAF6: 
CAF 9: 
CAFB: 


KAEKKKKKKKKKKKKKKKKEKKKKEKKKKKKKK 


CAFE: 
CBOO0: 
CBO02: 
CBO5: 
CBO7: 
CB09: 


KREEKKKKKEKEKEKKKKKKEKKEKKKKKKKKKEKK 


CBOB: 
CBOD: 
CBOF: 
CB12: 
CB14: 
CB17: 


RAKEKKKKKKKKEKKEKREKKKKKKKKKKKKKE 


CB1A: 
CB1D: 
CBI1F: 


A9 


ZC 


AY 
85 
60 


24 
10 
AD 
29 


00 


80 
F6 


D7] 
40 
2B 0A 
E0 


4c 14 CB 


24 


24 


09 


D7 
34 
2B OA 
E0 
07 
09 


D7 
OB 
2B 0A 
1F 
2B 0A 
91 CD 


AD 26 OA 


40 


DO 12 


LDA # $Q0 
-Byte $2C 
LDA # $80 
STA * SF6 
RTS 


BIT * SD7 
BPL S$CB36 
LDA $0A2B 
AND # SEO 
JMP $CB14 


BIT * $D7 
BPL $CB36 
LDA $0A2B 
AND # SEO 
ORA # $07 
BNE $CB14 


BIT * §D7 


BPL SCBI1A 
LDA $0A2B 
AND # $1F 
STA $0A2B 
JMP $CD91 


LDA S$0A26 
ORA # $40 
BNE $CB33 


Set/clear flag for auto-insert 


Clear auto-insert flag 
Skip to $CAEF 

Set auto-insert flag 
And store flag 

Return from subroutine 


Turn on block cursor 


Test 40/80-column mode 

For 40-column mode --> end 
Get VDC cursor mode 

Mask out bits 0-4 (start-scan) 
Save and VIC cursor off 


Turn on underline cursor 


Test 40/80-column flag 


_ If 40-column, end 


Get VDC cursor mode 

Mask out start-scan 
Start-scan line is 7 
Unconditional jump to setting 


Cursor flash off 


Test 40/80-column mode 
If 40-column, then jump 

Get VDC cursor mode 

Mask out flash 

And save again 

Set mode and VIC off 


for 40 column 
Get VIC cursor mode 


Set bit 6 for steady 
Unconditional jump to store 
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KKKKKKKKKKKKKKKKKKKKKEKKKKKKKKE Cursor flash on 

CB21: 24 D7 BIT * $D7 Test 40/80-column mode 

CB23: 10 09 BPL $CB2E Jump if 40 column 

CB25: AD 2B 0A LDA S$O0A2B Get VDC cursor mode 

CB28: 29 1F AND # S1F Mask out flash 

CB2A: 09 60 ORA # $60 And define flash period 

CB2C: DO E6 BNE $CB14 Unconditional jump to store 

KKKKKKKKKKKKKKKKKKKKKKKKKKKKK for 40 column 

CB2E: AD 26 0A LDA S$0A26 Get VIC cursor mode 

CB31: 29 BEF AND # SBF Mask otu bit 6 (steady) 

CB33: 8D 26 0A STA S$0A26 And save again 

CB36: 60 RTS Return from subroutine 

KKKKKKKKKKKEKKKKKKKKKEKKKKKKKKKK Set/clear flag for bell 

CB37: A9 00 LDA # $00 Enable bell 

CB39: 2c .Byte $2C Skip to $CB3C 

CB3A: A9 80 LDA # $80 Disable bell 

CB3C: 85 F9 STA * SFQ And store flag 

CB3E: 60 RTS Return from the subroutine 

KKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKK Reverse 80-column monitor 

CB3F: A2 18 LDX # $18 Select register 24 

CB41: 20 DACD JSR _ SCDDA And get current contents 

CB44: 09 40 ORA # $40 Set reverse flag 

CB46: DO 07 BNE S$CB4F Unconditional jump to $CB4F 

KHEKKKKKKKKKKKKKKKKKKKKKKKKKKKK Switch 80-column monitor 
normal 

CB48: A2 18 LDX # $18 Select register 24 

CB4A: 20 DACD JSR _ §$CDDA And get current contents 

CB4D: 29 BF AND # SBF Clear the reverse flag 

CB4F: 4C CC CD JMP_ $cDCC And store 
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KREKKEKKKKKKKKEKKEKKKKKKKKKEKKEKKER 


CB52: 
CB55: 


20 


4C 3E C3 


C3 CB 


JSR 


JMP $C33E 


SCBC3 


KKEEKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


CB58: 
CB5A: 
CB5C: 
CB5E: 
CB60: 
CB62: 
CB64: 


A4 
24 
30 
Bl 
85 
Bl 
60 


EC 
D7 
07 
E2 
F2 
E0 


* SEC 
* SD7 
SCB65 


(SE2),¥ 


* SF2 


(SE0),¥ 


KAEKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


CB65: 
CB68: 
CB6B: 
CB6D: 
CB70: 
CB73: 


20 
20 
85 
20 
20 
60 


F9 CD 
D8 CD 
F2 

E6 CD 
D8 CD 


JSR 
JSR 
STA 
JSR 
JSR 
RTS 


SCDF9 
SCDD8 
* SF2 
SCDE6 
SCDD8 


KKEAEKKKKKKKKKKKKKKKKKKKKKKKKKKE 


CB74: 
CB76: 
CB79: 
CB7C: 
CB7E: 
CB81: 
CB83: 
CB85: 
CB88: 
CB8A: 
CB8D: 
CB90: 
CB92: 


Ao 
20 
3D 
C9 
4c 
Abo 
BO 
20 
49 
3D 
9D 
A6 
60 


EB 
9F CB 
SE 03 
O01 
90 CB 
EB 
OE 
9F CB 
FF 
SE 03 
SE 03 
DA 


* SEB 
SCBOF 


$035E,X 


# $01 
SCB90 
* SEB 
SCB93 
SCBOF 
# SFF 


$035E,X 
$035E,X 


* SDA 
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Cursor to end of current line 


Determine start addr current line 
Cursor to end of line 


Get char and color at cursor pos 


Get current cursor col in Y-reg 
Test 40/80-column mode 
Jump if 80-column mode 

Get color at cursor position 
And save 

Get character at cursor position 
Return from subroutine 


Get char. and color under cursor 


Set the update address to ARA 
Get current attribute 

Store attribute 

Set the update address to video 
Get character from video RAM 
Return from subroutine 


Routine to test line-overflow bit 


Get current cursor line in X-reg 
Determine power 2 & remainder 
Clear line overflow bit 

No line set in the block? 

Jump to the end of the routine 
Get current cursor line in X-reg 
Jump if flag set 

Determine power 2 & remainder 
One's complement of acc 
combine with line overflow table 
And store again 

Get X from temp storage 
Return from subroutine 
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CB93: 
CB95: 
CB97: 
CB9A: 
CB9D: 


24 
70 
20 
1D 
DO 


F8 
DF 
SF CB 
5E 03 
EE 


| BIT 


BVS 
JSR 
ORA 
BNE 


k SE8 
SCB76 
SCBOF 


$035E,X 


SCB8D 
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CB9F: 
CBAI1: 
CBA2: 
CBA4: 
CBAD: 
CBA8 : 
CBA9: — 
CBAB: 
CBAC: 
CBAD : 
CBAE: 
CBAF : 
CBBO: 


6C CE 
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CBB1: 
CBB3: 
CBB5: 
CBB8: 
CBBA: 
CBBC: 
CBBE: 
CBCO0: 


A4 
84 
20 
90 
C6 
10 
E6 
4c 


E6 
EC 
74 
06 
EB 
F’/ 
EB 
oC: Cl 


CB 


LDY 
STY 
JSR 
BCC 
DEC 
BPL 
INC 
JMP 


x SE6 
* SEC 
$CB74 
$CBCO 
* SEB 
$CBB5 
* SEB 
SCiSc 
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Set the line-overflow bit 


Test scroll bit 

Jump if bit 6 set 

Determine power 2 & remainder 
Set the line-overflow bit 

And update 


Routine finds 24(X AND 7) and 
INT (X/8). Param in X-reg 


Save the accumulator 
X-register to acc 

Mask out bits 3-7=X MOD 8 
Acc back to X-reg 

Get corresponding power of 2 
Save acc on stack 

Get original value back 

This value is divided by 2 
Three times 

Which results in INT(X/8) 
Result to X-reg 

Get power of 2 from stack 
Return from subroutine 


Clear the overflow chain 


Put left window-bdr into Y-reg 
Save the current cursor column 
Clr line-overfl. bit of cur. line 
Carry cleared if all bits are 0 
Decrement current cursor line 
If not first line then jump 
Increment current cursor line 
Find start addr of current line 
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CBC3: 
CBC5: 
CBC8: 
CBCA: 
CBCC: 
CBCF: 
CBD1: 
CBD3: 
CBD6: 
CBD8: 
CBDA: 
CBDC: 
CBDE: 
CBEO: 
CBE3: 
CBES5: 
CBE8: 
CBEA: 
CBEC: 


E6 


20 
BO 
C6 
20 
A4 
84 
20 
Ao 
C9 
DO 
C4 
DO 
20 
90 
20 
90 
84 
60 


EB 
74 CB 
F9 
EB 
SC Cl 
E7 
EC 
58 CB 
EB 
20 
OE 
K6 
05 
74 CB 
05 
00 CC 
B9 
EA 


INC 
JSR 
BCS 
DEC 
JSR 
LDY 
STY 
JSR 
LDX 
CMP 
BNE 
CPY 
BNE 
JSR 
BCC 
JSR 
BCC 
STY 
RTS 


* SEB 
SCB74 
SCBC3 
* SEB 
$C15C 
* SET 
* SEC 
SCB58 
* SEB 
# $20 
SCBEA 
* SE6 
SCBE5 
SCB74 
SCBEA 
$ccood 
SCBD3 
* SEA 
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CBED: 
CBEE: 
CBFO: 
CBF 2: 
CBF 4: 
CBF7: 
CBF9: 
CBFA: 
CBFB: 
CBFC: 
CBFE: 
CBFF: 


48 
A4 
C4 
90 
20 
A4 
88 
38 
C8 
84 
68 
60 


EC 
E7 
07 
63 C3 
E6 


EC 


PHA 
LDY 
CPY 
BCC 
JSR 
LDY 
DEY 
SEC 
INY 
STY 
PLA 
RTS 


* SEC 
* SE7 
SCBFB 
$C363 
* SE6 


* SEC 
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Search for end of input line 


Increment current cursor line 
Clear line-overflow bit 

If not last line => Jump 
Decrement current cursor line 
Find start addr of current line 
Load rt window-border, Y-reg 
Save the current cursor column 
Get char. and color at cursor pos 
Get current cursor line in X-reg 
Is character <space>? 

No, then jump 

Compare with If window-border 
Not yet reached 

Clear line-overflow bit 

A line is still free 

Cursor one position to the left 
Cursor can be moved 

Current input line: End 

Return from subroutine 


Cursor 1 spe right in window 


Save acc on stack 

Get current cursor line in Y-reg | 
Compare to rt window-border 
Right window-border reached? 
No, then increment crsr column 
Load left window-border into Y 
Decrement 

Carry set means new line 
Increment cursor column 

Store the current cursor column 
Put acc back on stack 

Return from the subroutine 
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ccoo: 
CCcO2: 
CC03: 
Cco5: 
CCO7: 
CCO9: 
CCOB: 
CCOD: 
CCOF: 
CCL: 
CCi2: 
CC1i5: 
CC16: 
cc18: 
CC1A: 
CC1C: 
CC1D: 


A4 EC 
88 

30 04 
C4 E6 
BO OF 
A4 E5 
C4 EB 
BO OE 
Cé EB 
48 

20 5C 
68 

A4 E7 
84 EC 
C4 E7 
18 

60 


Cl 


LDY 
DEY 
BMI 
CPY 
BCS 
LDY 
CPY 
BCS 
DEC 
PHA 
JSR 
PLA 
LDY 
STY 
CPY 
CLC 
RTS 


* SEC 


SCC09 
* SE6 
$CC18 
* SES 
* SEB 
$CC1D 
* SEB 


$C15C 
* SE7 


* SEC 
* SET 


KKEKKKKKKKKKKKKKKKKKKKEKKEKKKRKKEE 


CC1E: 
CC20: 
CC22: 
CC24: 
CC26: 


A4 EC 
84 DE 
Aé EB 
86 DF 
60 


LDY 
STY 
LDX 
STX 
RTS 


SEC 
SDE 
SEB 
SDF 


+ + + F 
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CC27 
CC29: 
CC2B: 
CC2C: 
CC2E: 


AS Fl 
29 8F 
AA 
AY 20 
2C 


LDA 
AND 
TAX 
LDA 


-Byte 


* SF1 
# S8F 


# $20 
$2C 
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Cursor 1 spc to left in window 


Get current crsr column in Y-reg 
Decrement the column by 1 

If negative, cursor in column 0 
Compare with If window-border 
Left edge not reached, OK 

Load top of window in Y-reg 
Compare with current cursor line 
Cursor is in topmost line, end 
Decrement current cursor line 
Save acc on stack 

Find start address of the line 

Get acc back from stack 

Load right window-bdr in Y-reg 
Save the current cursor column 
Compare with nght window-bdr 
Clear carry for cursor moved 
Return from the subroutine 


Copy cursor (X/Y) to $DE/$DF 


Get current crsr column in Y-reg 
Copy to $DE 

Get current crsr column in X-reg 
Copy to $DF 

Return from the subroutine 


Space at current cursor position 


Color code for char output in acc 
Mask out bits 4-6 (attribute) 
And to X-register 

Load acc with space 

Skip to $CC31 
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CC2F: 
CC3L% 
CC32Z: 
CC34: 
CC35: 
CC37: 
CCSA; 
CC3D: 
CC3E: 
CC40: 
CC42: 
CC44: 
CC46: 
CC47: 
CC49: 


A6 
2C 
A6 
A8 
AY 
8D 
20 
98 
A4 
24 
30 
91 


8A 


91 
60 


Fil 


F2 


02 
28 OA 
ICCA 


EC 
D7 
06 
E0 


E2 


LDX * SF1 
.Byte $2C 
LDX * $F2 
TAY 

LDA # $02 
STA $0A28 
JSR $C17C 
TYA 

LDY * SEC 
BIT * SD7 
BMI $CC4A 
STA (SEO0),Y 
TXA 

STA (SE2),Y 
RTS 
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CC4A: 
CC4B: 
CC4C: 
CC4D: 
Cc50: 
CCS1: 
CC54: 
CCoTs 
CC58: 


KKEKEKEKEKKKRKKKKKKKKKKKKKKKKKKKKK 


CCSB: 
CC5C: 
CC5E: 
CC60: 
CCé6l: 
CC62: 
CC64: 


48 
8A 
48 
20 
68 
20 
20 
68 
4c 


38 
A5 
ES 
A8 
38 
A5 
ES 


F9 CD 


CA CD 
B6 CD 


CA CD 


B4 
ES 


E7/ 
E6 


SEC 
LDA 
SBC 
TAY 
SEC 
LDA 
SBC 


SCDF9 


SCDCA 
SCDE6 


SCDCA 


+ 


SE4 
SE5 


+ 


* SE7 
SE6 


+ 
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Character (acc) at cursor position 


Load X-register with color 

Skip to $CC34 

Color code reg. for insert/delete 
Acc to Y-register 

Place the value two in 

VIC cursor-flash counter 

Adapt attribute address 

And Y-register back to acc 

Get current crsr column in Y-reg 
Test 40/80 column mode 

Jump if 80-column mode 

Store character in 40-column 
Put video RAM & X-reg. (color) 
In color memory 

Return from subroutine 


Character on 80-column screen 
Acc: character, X: color, Y: col 


Save acc on stack 


-X-register (color) to acc 


And store on stack 

Set update register for attribute 
Get color from stack in acc 

And store in attribute RAM 

Set update addr. for video RAM 
And get character from stack 
Store character in video RAM 


Find chars/line & lines/window 


Set carry 
Load bottom of window in acc 


Minus top yields lines 

Of the window to Y-register 

Set the carry again 

Load rt window-border into acc 
Minus left window-border yields 
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CC66: AA TAX Number of chars/line into X-reg 
CC67: AS EE LDA * SEE Max number of columns in acc 
CC69: 60 RTS Return from the subroutine 
KAKKKKKKKKKKKKKKKKKKKKKKKEKKKKER Get or set cursor position 
CC6A: BO 29 BCS $CC95 If carry set - then get pos 
ccéc: 8A TXA Line to acc 

CC6D: 65 E5 ADC * SE5 Add top of window 

CC6F: BO 14 BCS $CC85 If overflow then end (Error!) 
cc71: C5 EB4 CMP * SE4 Compare to bottom of window 
CC73: FO 02 BEQ $CC77 - If reached, then OK 

CC75: BO OE BCS $CC85 If oveflow then end (Error!) 
CC77: 48 PHA Save line on stack 

CC78: 18 CLC Clear carry for addition 

CC79: 98 TYA Get column in acc 

CC7A: 65 E6 ADC * SE6 And add left window-border 
CC7C: BO 06 BCS $CC84 If overflow then end (Error!) 
CC7E: C5 E7 CMP * SE7 Compare to rt window-border 
CC80: FO 04 BEQ S$CC86 If equal, then OK 

CC82: 90 02 BCC S$CC86 If overflow then end (Error!) 
CC84: 68 PLA Get line from stack 

cc85: 60 RTS Return from subroutine 
KKKKKKKEKKKKKKKKKKKKKKKKKKKKAKER Make input line clear 

CC86: 85 EC STA * SEC Store the current cursor column 
CC88: 85 EQ STA * SEQ Store the start input line 

CC8A: 68 PLA Get line from stack 

CC8B: 85 EB STA * SEB Write current cursor line back 
CC8D: 85 E8 STA * SE8 Store as start input line 

CC8F: 20 5C Cl JSR _ §$C15C Determine addr of current line 
cc92: 2057 CD JSR $CD57 Set cursor to current column 
cc95: A5 EB LDA * SEB Get current cursor line in acc 
CC97: E5 E5 SBC * SES Subtract top of window 

Cc99: AA TAX Result then to X 

CC9A: 38 SEC Set carry for subtraction 

CC9B: A5 EC LDA * SEC Get current cursor column in acc 
CC9D: E5 E6 SBC * SE6 Subtract left window-border 
CCOF: A8 TAY Result to Y 
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CCAO0: 
CCA1: 


18 
60 


CLC 
RTS 
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CCA2: 
CCA3: 
CCA5: 
CCA7: 
CCAA: 
CCAB: 
CCAD: 
CCBO0: 
CCB2: 
CCB4: 
CCB7: 
CCB9: 
CCBB: 
CCBC: 
CCBEF : 
CCC. 
CCES:: 
CCCo: 
CCC6: 
CCC9: 
CCCB: 
CCCD: 
CCCE: 
CCDO: 
CCD2 : 
CCD3: 
CCD5: 
CCD7: 


CCD9: 
CCDA: 


CCDB: 


CCDE: 
CCE1: 
CCE3: 


02 


FE 


CD 


CD 


10 


10 
10 


x SDC 
zx SDA 
SO2AA 


SFF6B 
x SDE 
# SOA 
$CD20 
* SDB 
x SDC 


$CD20 
* SDD 
* SDC 
* SDA 


$1000,X 


SCCF6 
SCCE3 


* SDB 
SCDI1F 


* SDB 
* SDD 
SCCF 6 


$100A,Y 
$100A,X 


SCCD5 
x SDD 
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Clear carry for OK 
Return from subroutine 


Kernal entry: PFKEY 
Program function key 


Dec the number of the ftn. key 
Number of (ftn key -1) in Z-P 
Store length of string in Z-P 
Z-P addr - string ptr in FETVEC 
Z-page address of string ptr in Y 
Get bank # of the ftn string in X 
Kemal: GETCFG get config 
Store in bank byte for ftn string 
Number of ftn keys (10) in acc 
Add ftn str lengths up to (X -1) 
Store string length in zero page 
Get number of the (ftn key -1) 
Create real ftn key number 

Add ftn str lengths up to (X -1) 
Store string length 

Get number of (ftn key -1) 

Get string length of ftn key 

Set carry for normal subtraction 
Subtract length of the old ftn str 
No move necessary, continue 
New string shorter than old 
Clear carry for addition 

Add total length + difference len 
Length > 256 than RTS: error 
Put new maximum length in X 
Get old max length in Y 

If both are equal, than the last 
Ftn key was addressed 
Decrement old max length by 1 
Decrement new max length by 1 
Move ftn str's away from new 
Insert position 

And create space for the new str 
Add difference length 
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CCE5: AA TAX Copy new len in X 

CCE6: A4 DD LDY * SDD Get old len in Y 

CCE8: C4 DB CPY * SDB Compare with old max length 
CCEA: BO OA BCS S$CCF6 Equal, than space 


CCEC: B9 0A 10 LDA $100A,Y Insertion for new ftn string 
CCEF: 9D 0A 10 STA $100A,X For ftn key is done 


CCF2: C8 INY Increment old & new len 

CCF3: E8 INX By 1 for move 

CCF4: 90 F2 BCC $CCE8 Until ftn strings shifted 
KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK Insert new function string 

CCF6: A6 DC LDX * SDC Get number of the (ftn key -1) 
CCF8: 20 20 CD JSR _ $cCD20 Add ftn str lengths up to (X -1) 
CCFB: AA TAX Get str len up to the new ftn key 
CCFC: A4 DC LDY * SDC Get # of the (ftn key -1) 

CCFE: A5 DA LDA * SDA Length of the ftn string to insert 
CD00: 990010 STA $1000,Y Replace len entry in ftn str table 
CD03: AO 00 LDY # $00 Initialize displacement pointer 
CD05: C6 DA DEC * SDA Length of the ftn str = length -1 
CD07: 30 15 BMI $CD1E All chars 1n table xferred, exit 
CD09: 86 DF STX * SDF Store the "to" string length 
CDOB: A6 DE LDX * SDE Bank value where str is located 
CDOD: AD AA 02 LDA SO2AA Load acc with FETVEC 

CD10: 78 SEI Disable all system interrupts 
CD11: 20 A202 JSR $02A2 FETCH: get ftn string character 
CD14: 58 CLI Enable all system interrupts 
CD15: A6 DF LDX * SDF Position for ftn string in table 
CD17: 9D 0A 10 STA $100A,X Enter character in ftn string table 
CD1A: E8 INX Displ. to "to where” str buffer+1 
CD1B: C8 INY Displ to "from where" str buff+1 
CD1c: DO E7 BNE $CD05 _ Jump in the string transfer loop 
CD1E: 18 CLC Marker for "OK" return 

CD1F: 60 RTS Return from the subroutine 
KAKKKKAKKKKKKKKKKKKEKRKEKKRKKK KKK Add lengths of ftn str's up to X 
CD20: A9 00 LDA # $00 Load counter with zero 

CD22: 18 CLC Clear carry for addition 

CD23: CA DEX Previous key assignment 
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CD24: 
CD26: 
CD29: 


CD2B: 


30 05 
7D 00 
90 F8 


60 


10 


BMI 
ADC 
BCC 


RTS 


SCD2B 


$1000,X 


$CD23 
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CD2C: 
CD2E: 
CD30: 
CD33: 
CD35: 
CD38: 
CD39: 
CD3B: 
CD3C: 
CD3E: 
CD40: 
CD43: 
CD46: 
CD49: 
CD4A: 
CD4D: 
CD4E: 
CD50: 
CD52: 
CD54: 
CD56: 


85 FO 
1A 
BC 40 
E0 
9D 40 


95 EO 


10 F2 
A2 OD 
BC 60 
BD 54 
9D 60 


9D 54 


10 FO 
AS D7 
49 80 
85 D7 
60 


OA 


OA 


OA 
03 
OA 


03 


STA 
LDX 
LDY 
LDA 
STA 
TYA 
STA 
DEX 
BPL 
LDX 
LDY 
LDA 
STA 
TYA 
STA 
DEX 
BPL 
LDA 
EOR 
STA 
RTS 


x SFO 
# S1A 


S0A40,X 
* SE0,X 
$0A40,X 


* SEO, 


SCD30 
# $0D 


es 


SOA60,X 
$0354,X 
SOA60,X 


$0354, 


$CD40 
* $D7 
# $80 
* $D7 


x 
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CD57: 
CD59: 
CD5B: 
CD5D: 
CD5E: 
CD60: 
CD62: 


24 D7 
10 FB 
A2 OE 
18 

A5 E0 
65 EC 
48 


BIT 
BPL 


* $D7 
SCD56 
# SOE 


* SEO 
* SEC 
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If zero, then add all 
Add length of key X 
Jump unconditionally to $CD23 


Return from subroutine 


Kernal routine: SWAPPER 
Switch 40/80-col modes 


Store acc as last-printed char 
Exchange the passive monitor 
Storage with the active storage. 
This is done 26 times because 
26 bytes must be copied 

The passive range lies from 
$0A40 to $0ASB. 

Decrement the counter if 

Not done exchanging 

Now the bit maps, the bit tables 
Of active and passive screens 
Must be exchanged. 

This is done 13 times 

The passive areas starts at 
$0A60. 

Decrement counter and jump 
If not done copying 

Get status 40/80 column 

And invert flag bit 

Save again 

Return from subroutine 


Set cursor to current column 


Test for 40/80 column mode 
End if 40-column mode 
Cursor position high 

Clear carry 

Low byte of current screen line 
Add cursor column 

Save low byte 
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CD63: 
CD65: 
CD67: 
CD6A: 
CD6B: 
CD6C: 


A5 
69 
20 
E8 
68 
AC 


E1 
00 
CC CD 


CC CD 


LDA 
ADC 
JSR 
INX 
PLA 
JMP 


*k SE1 
# $00 
SCDCC 


SCDCC 
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CD6F: 
CD71: 
CD73: 
CD76: 
CD78: 
CD7B: 
CD7E: 
CD81: 
CD83: 
CD85: 
CD88: 
CD8A: 
CD8C: 
CD8E: 
CD91: 
CD93: 
CD96: 
CD99: 
CD9B: 
CD9E: 


24 
10 
20 
A4 
20 
20 
8D 
29 
85 
20 
A5 


D7 
26 
7C. C1. 
KC 
F9 CD 


D8 CD 


33 OA 
FO 
DB 
F9 CD 
Fl 
OF 
DB 
CA CD 
OA 
2B OA 
CC CD 
00 
27 OA 


BIT 
BPL 
JSR 


* S$D7 
SCD99 
SCLIC 
* SEC 
SCDF9 
SCDD8 
$0A33 
# SFO 
x SDB 
SCDF9 
* SF1 
# SOF 
* SDB 
SCDCA 
# SOA 
$OA2B 
SCDCC 
# $00 
$0A27 
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CD9F: 
CDAI1: 
CDA3: 
CDA6: 
CDAY: 
CDAC: 
CDAE: 
CDBO: 


24 
10 
20 
AD 
20 
A2 
AY 
AC 


D7 
10 
F9 CD 
33 OA 
CA CD 
OA 
20 


CC CD 


BIT 
BPL 
JSR 
LDA 
JSR 
LDX 
LDA 
JMP 


* $D7 
SCDB3 
SCDF9 
$0A33 
SCDCA 
# SOA 
# $20 
SCDCC 
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High byte of current screen line 
Add the carry 

And store the high byte 
Increment register pointer to $0F 
Get low byte from stack 

And save it too (return) 


Set cursor color at cursor pos 


Test for 40/80-column mode 
Jump if 40 column mode 

Set attribute address 

Get current crsr column in Y-reg 
Attribute addr in update register 
Get current attribute 

Store temporarily 

Mask out bits 0-3 (color) 

And store 

Attribute addr in update register 
Color code for char output in acc 
Mask out bits 4-7 (attribute) 
And combine with attribute 
Store at attribute address 

Cursor mode and start-scan line 
80-column cursor mode 

And store 

Acc equal zero and store 

Means turn VIC cursor off 
Return from subroutine 


Turn cursor on (80-column) 


Test 40/80-column mode 

Jump if 40-columnmode 

Set update to attribute address 
Temp storage for MOVLIN 
Store attribute 

Cursor mode and start-scan line 
Assigned value 32 

Place acc in VDC data register 
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ea eS SS SS 
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CDB3: 
CDB6: 
CDB9: 
CDBB: 
CDBD : 
CDCO0: 
CDC3: 
CDC6: 
CDC9: 


20 
60 


27 «OA 


26 OA 


OE 


40 

26 OA 
29 OA 
2A OA 
34 CC 


STA 
LDA 
BPL 
AND 
STA 
LDA 
LDX 
JSR 
RTS 


$0A27 
$0A26 
SCDC9 
# $40 
$0A26 
SOA29 
SOA2A 
$CC34 
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CDCA: 
CDCC: 
CDCF: 
CDD2: 
CDD4: 
CDD?7 : 


A2 
8E 
2C 
10 
8D 
60 


1F 
00 Dé 
00 D6 
FB 
01 D6 


LDX 
STX 
BIT 
BPL 
STA 
RTS 


# S1F 
$D600 
$D600 
SCDCF 
$SD601 
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CDD8: 
CDDA: 
CDDD: 
CDEO: 
CDE2: 
CDE5: 


A2 
8E 
2C 
10 
AD 
60 


LF 
00 D6 
00 Dé 
FB 
01 D6 


LDX 
STX 
BIT 
BPL 
LDA 
RTS 


# S1F 
$D600 
$D600 
SCDDD 
$D601 


KKKEKKKKKKKKEKEKKKKKKKEKKEKEKRKKKKEKKEK 


CDE6: 
CDE8 : 
CDE9: 
CDEA: 
CDEC: 
CDED: 
CDEF : 


A2 
18 
98 
65 
48 
AY 
65 


12 


E0 


00 
El 


# $12 


* SEO 


# $00 
* SE1 
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Turn cursor on (40-column) 


Turn VIC cursor on 
Steady or flashing cursor? 
Steady, then end 

Clear flash flag 

And store again 

VIC character before flash 
VIC color before flash 
Set old values 

Return from subroutine 


Acc in data register of VCR 


VCR data register 
Transmit register 

Test status 

Not done yet, wait 
Store value in register 
Return from subroutine 


Get value of the data register 


VCR data register 
Transmit register 

Test status 

Not done yet, wait 

Get value of the register 
Return from subroutine 


Set update address to current 
screen position 


Update address high 

Clear carry for addition 

Y (column) to acc 

Add low byte of current addr 
Then on stack 

Load acc with zero and then 
Add the carry 
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CDF1: 
CDF 4: 
CDF 5: 
CDF 6: 


20 CC CD 


68 
E8 


4¢ Ce. CD 


JSR 
PLA 
INX 
JMP 


SCDCC 


SCDCC 
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CDE9: 
CDFB: 
CDEC: 
CDFD: 
CDFF : 
CE00: 
CE02: 
CE04: 
CEO7: 
CE08: 
CEQ09: 


A2 
18 
98 
65 
48 
AY 
65 
20 
68 
E8 
4c 


12 


E2 
00 


E3 
CC CD 


CC CD 


# $12 


* SE2 
# $00 


* SE3 
$CDCC 


SCDCC 


KKKEKKKKKKEKKKKKEKKKEKEKKEKKKEKKKKKKK 


CE0C: 
CEOE: 
CE10: 
CE12: 
CE14: 
CE16: 
CE18: 
CEI1B: 
CEIC: 
CELE: 
CE21: 
CE23: 
CE25: 
CE27: 
CE2A: 
CE2D: 
CE2E: 
CE30: 
CE32: 


AQ 
AO 
85 
84 
A2 
AY 
20 
B8 
A9 
20 
AO 
A2 
AY 
20 
20 
C8 
CO 
90 
A9 


00 
DO 
DA 
DB 
12 
20 
CC CD 
00 
CC 
00 
OE 
DA 
74 FF 
CA CD 


CD 


08 
Fl 
00 


LDA 
LDY 
STA 
STY 
LDX 
LDA 
JSR 


# $00 
# S$DO 
* SDA 
* SDB 
# $12 
# $20 
SCDCC 


# $00 
SCDCC 
# $00 
# SOE 
# SDA 
SFF74 
SCDCA 


# $08 
SCE23 
# $00 
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Store the high byte 

Get low byte from stack 
Increment register to $13 

And low byte in update register 


Set update address for attribute 


Update register high byte 
Clear carry for addition 

Y (column) to acc 

Add low byte of attribute addr 
And then on stack 

Load acc with zero and then 
Add carry 

Store high byte 

Get low byte from stack and 
Increment register to $13 
Store low byte 


Copy character set in VDC RAM 


Load acc (low) & Y (high) with 
Start addr - CHARROM: $D000 
Store these values in zero-page 
Addresses $DA and $DB 
Update register high 

Start address of char generator 
Define in VDC 

Pointer to low byte 

$00 is low byte of start address 
Of the character generator 
Index pointer to line/char 
Select CHARROM 

Zero-page address to access 
INDFET: LDA(XX),Y fr bank 
And store value in RAM 

VDC. Increment index pointer 
All 8 character copied? 

No, then next line 

Else load acc with zero 
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CE34: 20 CA CD JSR SCDCA 
CE37: 88 DEY 

CE38: DO FA BNE $CE34 
CE3A: 18 CLC 

CE3B: A5 DA LDA * SDA 
CE3D: 69 08 ADC # $08 
CE3F: 85 DA STA * SDA 
CE41: 90 EO BCC S$CE23 
CE43: E6 DB INC * SDB 
CE45: A5 DB LDA * SDB 
CE47: C9 EQ CMP # SEO 
CE49: 90 D8 BCC S$CE23 
CE4B: 60 RTS 


KKKEKEKKKKEKKKKKKKEEKKEKEKKKKKEKRKKKKE 


CE4C: 
CE54: 


90 05 1C 9F 9C 1E IF QE 
81 95 96 97 98 99 YA 9B 


KHEKEKKKKKKKKKKEKKKEKKKKKEKKKRKKKKKR 


CE5C: 
CE64: 


00 OF 08 07 OB 04 02 OD 
OA 0C 09 06 O01 05 03 OE 


KRKEEKKKKKKKKEKEKKEKKEKKKEKKKEEKKKEEKKK 


CE6C: 80 40 20 10 08 04 02 O01 


KKEKKKKKKKKKKKKRKKEKKKKKEKKKKKKKKK 


CE74: 00 04 00 D8 18 00 00 27 
CE7C: 00 00 00 00 00 18 27 00 
CE84: 00 0D OD 00 00 00 00 00 
CE8C: 00 00 


KKEKEEKKKKKKKKKRKKKEKKKRKEKEKKEKKKKER 


CE8E: 00 00 00 08 18 00 00 4F 
CE96: 00 00 00 00 00 18 4F 00 
CE9E: 00 07 07 00 00 00 00 00 
CEA6: 00 00 
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And store value in VDC-RAM 
Eight times 

Jump if not yet done 

Clear carry for addition 
Load acc with low byte 

And add 8 to it 

Store again and 

If no carry than continue 
Else account for carry 

And check if the high byte 
points to end of CHARROM 
Else continue 

Return from the subroutine 


Table of the color codes (ASCII) 


Table of color codes for VDC 


Power of 2 
128, 64, 32, 16, 8, 4, 2, 1 
Init. values for 40-col screen | 


These values are copied to zero 
page at $EO during initialization 
They are explained in zero-page 
Comments 


Init. values for 80-col screen 


These values are copied into 
Page 3 at $0A40 during init. 
They're explained in page-three 
Comments 
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KKKKKKKKKKKKKEKKKKKKEKKEKKKKKAKE Init. assignment of function keys 
CEA8: 07 06 OA 07 06 04 05 08 Length of function key strings 
CEBO: 09 05 (F1 - F8, Shift-Run, Help) 
KKKKKKKKKKKKKKKKKEKKKKKKKKKAKKKS Init. ftn key string assignments 
CEB2: 47 52 41 50 48 49 43 GRAPHIC 

CEB9: 44 4C 4F 41 44 22 DLOAD" 


CEBF: 44 49 52 45 43 54 4F 52 DIRECTORY <Cr> 
CEC7: 59 OD 


CEC9: 53 43 4E 43 4c 52 OD SCNCLR <Cr> 
CEDO: 44 53 41 56 45 22 DSAVE" 
CED6: 52 55 4E OD RUN <Cr> 
CEDA: 4C 49 53 54 OD LIST <Cr> 


CEDF: 4D 4F 4B 49 54 4F 52 OD MONITOR <Cr> 
CEE7: 44 CC 22 2A OD 52 55 4E D <Shift - L> <Cr> RUN <Cr> 
CEEF: OD 


CEFO: 48 45 4c 50 OD HELP <Cr> 
KKKKKKKKKKKKKKKKKKKEKKKKKKKKKKK Free area 
CEF5: FF FF FF... Not used 
CFFD: .. . FF 00 FF Not used 


292 


Abacus Software 


C-128 Internals 


aE 


KKKKKKKKEKKEKKEKKEKKKEKKEKKKKKKKKKE 


E000: 
E002: 
E003: 
E004: 
E005: 
E007: 
EQOA: 
EQOC: 
EOOF: 
E012: 
E013: 
E015: 
E018: 
EQI1B: 
EQ1E: 
E021: 
E024: 
Q027: 
E028: 
EQ2ZA: 
EQ2C: 
EQ2F: 
E031: 
E034: 
E037: 
EQ3A: 
E0O3B: 
E03C: 
EO3E: 
E041: 
E043: 
E045: 
E048: 


A2 FF 
78 

9A 

D8 

AX 00 
8D 00 
A2 OA 
BD 4B 
9D 00 
CA 

10 F7 
8D 04 
20 CD 
20 FO 
20 42 
20 09 
20 3D 
48 

30 07 
AY ADS 
CD 02 
FO 03 
20 93 
20 56 
20 00 
68 

58 

30 03 
4c 00 
C9 DF 
FO 03 
6C 00 
4c 4B 


FE 


E0 
D5 


OA 
E0 
El 
E2 
El 
F6 


OA 
EQ 


0 
CO 


BO 


OA 
E2 


LDX 
SEI 
TXS 


# SEF 


# $00 
SFFOO 
# SOA 


SEQ4B,X 
$D500,X 


SEOOC 
SOA04 
SEOCD 
SE1FO 
$E242 
$E109 
SF63D 


S$E031 
# SA5 
$OA02 
$E034 
$E093 
SE056 
$C000 


$E041 
$B000 
# SDF 
SE048 


($0A00) 


SE24B 
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Reset routine 


Init. value for stack pointer 
Disable all system interrupts 
Set system stack pointer to start 
Reset decimal mode 

Load acc with zero and 

Enable all system ROMs 

Set loop and displ. counter 

Get byte from init. counter 
Initialize MMU registers 

Loop and displ. counter -1 
Transfer 11 values from table 
Clear NMI/Reset status pointer 
NMLIRQ+copy z-page routines 
Check <CBM> code in RAM 1 
Cartridge test for C-64 config 
Kernal IOINIT: Init I/O devices 
Shift RUN/STOP keyboard test 
Save acc contents on stack 

Bit 7 set, skip reset status test 
System warm/cold start stat. ptr. 
Test for warm-start status 
Warm-start status, then skip 
RAMTAS: Clear/test RAM 
RESTOR: Initialize I/O 

Routine CINT: Init. editor+scr. 
Get code for keyboard poll 
Enable all system interrupts 


_ Bit 7 set, skip monitor entry 


Kernal MONITOR entry 
Configure system as C-64? 
Yes, then do it 

System restart vector ($4003) 
GO64MODE: configure C-64 
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E04B: 00 .Byte $00 
B04C: 00 -Byte $00 
E04D: 00 .Byte $00 
E04E: 00 .Byte $00 
EO4F: 00 -Byte $00 
E050: BF Byte SBF 
E051: 04 .Byte $04 
E052: 00 .Byte $00 
E053: 00 -Byte $00 
E054: 01 -Byte $01 
E055: 00 -Byte $00 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


E056: A2 73 LDX # $73 
E058: AO EO LDY # SEO 
EQ5A: 18 CLC 


KRKEKKEKKKKKKKKKKKKKKKKKKKKKKKKEKE 


E05B: 86 C3 STX 


* $C3 
E05D: 84 C4 STY * $cC4 
EO5F: AO 1F LDY # $1F 
E061: B9 1403 LDA $0314,Y 
E064: BO 02 BCS SE068 
E066: Bl C3 LDA ($C3),Y 
E068: 99 14 03 STA $0314,Y 
EO06B: 90 02 BCC SEO6F 
B06D: 91 C3 STA ($C3),Y 
EO6F: 88 DEY . 
E070: 10 EF BPL SE061 
E072: 60 RTS 


KKEEKKKKKKKKKEKKKKKKKEKKKEKKKKKKKK 


E073: 65 FA SFA65 
E075: 03 BO $B003 
E077: 40 FA SFA40 
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Initialization table for MMU 


$D500: Configuration Register 
$D501: Preconfig. Register A 
$D502: Preconfig. Register B 
$D503: Preconfig. Register C 
$D504: Preconfig. Register D 
$D505: Mode Config. Register 
$D506: RAM Config. Register 
$D507: Page 0 Pointer Low 
$D508: Page 0 Pointer High 
$D509: Page 1 Pointer Low 
$DS0A: Page 1 Pointer High 


Kernal routine: RESTOR 


Low byte of kernal vector table 
High byte of kernal vector table 
Marker for dnload of vector table 


Kernal routine: VECTOR 


Low byte of vector tbl in z-page 
High byte of vector tbl ($E073) 
Set loop counter to 32 

Read byte from page 3 vector tbl 
If upload vector table, skip 
Read a value from vector table 
Store in page three vector table 
If download vector table, skip 
Copy in indexed table 

Loop counter & displacement -1 
Loop until table transferred 
Return from subroutine 


Vector table 
Vector points to IRQ entry 


Vector to Monitor Break entry 
Vector points to NMI entry 
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ee ee tS 


E079: 
EQ7B: 
EQ7D: 
EQ7VE: 
E081: 
E083: 
E085: 
E087: 
E089: 
FO8B: 
EQ8D: 
EO8F: 
E091: 


KKEKEKKKKKKKKKKKKEKKKKKKEKKKKKKKKE 


E093: 
E095: 
E096: 
E099: 
EOQ9A: 
E09C: 
EQO9E: 
EQAO: 
EQA2: 
EO0A4: 
EQA6: 
EQA8: 
EQAA: 
EQAC: 
EQAE: 
EQAF: 
EOBI: 
EOB3: 
EOB6: 
EQB8 : 
EOBA: 


BD 
88 
06 
4c 
26 
06 
719 
6E 
EB 
22 
06 
6C 
4E 


A9 
A8 
99 
C8 
DO 
AQ 
84 
85 
AO 
84 
85 
A0 
84 
85 
18 
A0 
A2 
20 
AO 
A2 
20 


EF 
Fl 
Fl 
Fl 
F2 
EF 
EF 
F6 
EE 
F2 
BO 
F2 
F5 


00 


02 00 


FA 
OB 
B3 
B2 
0c 
C9 
C8 
OD 
CB 
CA 


FF 
00 
6B F7 
1c 
00 
TA F7 


SEFBD 
SF188 
SF106 
SF14C 
SF226 
SEF06 
SEF79 
SF66E 
SEEEB 
S$F222 
$B006 
SF26C 
SF54E 


# $00 


$0002,¥Y 


$E096 
SOB 
$B3 
SB2 
SOC 
$C9 
$C8 
SOD 
SCB 
SCA 


+ + HE + F FE F OF FE 


# SFF 
# $00 
SF76B 
# $1C 
# $00 
SF77A 


Vctr pts to Kernal OPEN rout. 
Vctr pts to Kernal CLOSE rout. 
Vctr pts to Kernal CHKIN rout. 
Vctr pts to Kernal CKOUT rout. 
Vetr pts to Kernal CLRCH rout. 
Vctr pts to Kernal BASIN rout. 
Vetr pts to Kernal BSOUT rout. 
Vetr pts to Kernal STOP rout. 
Vctr pts to Kernal GETIN rout. 
Vetr pts to Kernal CLALL rout. 
Vctr to Monitor Exmon entry 
Vector points to LOADSP entry 
Vector points to SAVESP entry 


Kernal routine: RAMTAS 
Clr z-page,set Memtop,Membot, 
RS-232 I/O buff's+cassette buff 


Init acc with $00, addr val low 
And copy to Y 

Clear the entire zero page 
Except for the 2 processor ports 
Registers $00 and $01 

Set the zero-page cassette buffer 
Pointer (z-page $B2-$B3) to the 
Start address $0B00 

Set the zero-page RS-232 input 
Buffer ptr (z-page $C8-$C9) to 
The start address $0C00 

Set the zero-page RS-232 output 
Buffer ptr (z-page $CA-$CB) to 
To the start address $0D00 
Clear carry flag as marker 

Set top of memory 

In the system bank to $FFOO 
Jump to kernal rout. MEMTOP 
Set the memory bottom 

In the system bank to $1C00 
Jump to kernal rout. MEMBOT 
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EOBD: 
EOBF: 
E0C1: 
E0C4: 
E0C7: 
E0C9: 
EOCC: 


AO 
A2 
8C 
8E 
AQ 
8D 
60 


40 
00 
O01 
00 
A5 
02 


OA 
OA 


OA 


# $40 
# $00 
$0A01 
$O0A00 
# SAS 
$OA02 


KRKEEKKKKEKKKKKKKKKKKKEKKKKEKKKKKKK 


EOCD: 
EOCF: 
E0D2: 
EQOD5: 
EOD7: 
EQDA: 
EQODD: 
EODE: 
EOEO: 
EQE2: 
EOES: 
EOE8: 
EOE: 
EQOEB: 
EQEC: 
EOEE: 
EOFO: 
EOF3: 
EOF6: 
EOF?7: 
EOFS: 
EOFB: 
EOFE: 
E101: 
E102: 
E104: 


A0 
B9 
8D 
A2 
BD 
9D 
CA 
10 
A2 
BD 
9D 
CA 
10 
88 
10 
A2 
BD 
9D 
CA 
10 
A2 
BD 
9D 
CA 
10 
60 


03 
05 
00 
3F 
05 
05 


EF] 
05 
FA 
FA 


EF] 


El 
59 
00 
A2 


F/] 
OC 
SA 
FO 


F/ 


Bl 
FF 


FF 
FF 


FF 
FF 


F8 
02 


F8 
03 


LDY 
LDA 
STA 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
LDA 
STA 
DEX 


# $03 
SE105,Y 
SFFO0 
# S$3F 
SFF05,X 
SFFO5,X 


SEOD7 
# $05 
SFFFA, X 
SFFFA, X 


SEOE2 


SEOCF 
# $59 
SF800,X 
$02A2,X 


SEOFO 
# $0C 
SF85A,X 
S03F0,X 


SEOFB 
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Initialize the system 

RESTART vector at the address 
$A00-$A01 w/ value $4000 for 
The system cold-start entry 
Initialize the system cold-start/ 
Warm-start stat. ptr with $A5_ 
Return from subroutine 


Copy NMI, IRQ + z-pge rout's 


Init loop counter for four loops 
Get value from RAM bank table 
Set corresponding configuration 
Transfer 64 bytes 

Read NMI+IRQ rout from ROM 
Copy into underlying RAM 
Transfer loop counter -1 


Loop until 64 bytes transferred 


In the same manner the 

NMI, reset & IRQ vectors are 
Copied from kernal ROM in the 
Underlying RAM, loop 'til all 3 
Vectors are transferred 

Loop cntr for 4 RAM banks-1 
Copy rout.+vect. in 4 RAM bks 
90 bytes to transfer 

Here the ROM originals of the 
FETCH,STASH,CMPARE, 
JSRFAR,JMPFAR routs copied 
In RAM at pages 2 and 3 
Transfer 13 bytes 
Here the original routine in ROM 
Is copied into the 

RAM area at address 

$03F0 

Return from subroutine 
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KKKKKKEKKKKKKKKRKKKKKKKKKKKKKKKK RAM bank table 

E105: 00 .Byte $00 RAMO,SysROM,Bs hi,Bs lo,i/o 
E106: 40 .Byte $40 RAM1,SysROM,Bs hi,Bs lo,i/o 
E107: 80 .Byte $80 RAM2,SysROM,Bs hi,Bs lo,i/o 
E108: Co .Byte $C0 RAM3,SysROM,Bs hi,Bs lo,i/o 


KKEKKKKKKEKKKKKKKKKKKEKKKKKEKKKEKE 


E109: 
ELOB: 
E1OE: 
Elli: 
B114: 
B116: 
E119: 
E11C: 
E1L1F: 
E122: 
E124: 
E127: 
E12ZA: 
E12B: 
E12E: 
E130: 
E133: 
E135: 
E138: 
E13A: 
E13C: 
E13E: 
E140: 
E142: 
E145: 
E147: 
E149: 
E14C: 
E14E: 
E151: 


TF 
OD 
OD 
00 
08 
OB 
OF 
OF 
OF 
00 
03 
03 


02 
07 
00 
3F 
02 
E3 
O01 
2F 
00 
FF 
11 
FB 
08 
12 
06 
11 
F4 


DC 
DD 
DC 
DC 
DD 
DC 
DD 


DC 
DD 


DC 


DD 


DD 


DO 


DO 


DO 


# STF 
SDCOD 
SDDOD 
$DC00 
# $08 
SDCOE 
SDDOE 
SDCOF 
SDDOF 
# $00 
$DC03 
SDD03 


SDC02 
# $07 
SDD00 
# S$S3F 
SDD02 
# SE3 
* $01 
# S2F 
* $00 
# SEF 
$D011 
$E142 
# $08 
$D012 
$E154 
$D011 
SE147 
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Kernal routine: IOINIT 
Initialization of the CIAs 


Load value for "clear interrupt" 
Initialize ICR of CIA 1 

Initialize ICR of CIA 2 

Port A, CIA 1, matrix line 0 

"1 shot" initialization for timer 
CRA of CIA 1 tmr A to "1 shot" 
CRA of CIA 2 tmr A to "1 shot" 
CRA of CIA 1 tmr B to "1 shot" 
CRA of CIA 2 tmr B to "1 shot" 
CIA register to input mode 

Data direction reg. B of CIA 1 
Data direction reg. B of CIA 2 
Xreg to value for "output mode" 
Data direction reg. A of CIA 1 
Video controller to lower 16 K 
ATN signal on port A, clr CIA 2 
Set bits 0 to 5 to output 

Data direction reg A of CIA 2 
Initialize processor port data reg 
With the default value $E3 

Init. process port data dir reg 
With default value $2F 
Initialize PAL/NTSC ptr (PAL) 
Wait until MSB of the raster line 
Interrupt pointer is set 

Comp value PAL/NTSC version 
Compare low byte raster intrpt 
Less than 8, then PAL version 
Wait until MSB of the raster line 
Interrupt is cleared 
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E2 
DO 


E1 
D6 


El 
OA 


E1 


OA 


C0 


OA 
OA 


$0A03 
# $00 
$0A37 
$0A39 
SOAOA 
SOA3A 
SOA36 
* $99 
# $03 
* SOA 
# $30 


SE2C7,X 
$D000,X 


$E170 
# $00 
$E1DC 
$D600 
# $07 
SE18A 
# $3B 
SE1DC 
$0A03 
$E194 
# $3E 
$E1DC 
$0A04 
SE1AE 
$C027 
# $80 
$0A04 
$0A04 
# SFF 
# SFF 


SE1A8 


SE1A8 
# $00 
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Set PAL/NTSC ptr to NTSC($0) 
Store PAL/NTSC version ptr 
Init value for pointer 

X-reg storage, bank operations 
80 column VDC temp storage 
Indirect IRQ vector (cassette) 
Initialize IRQ temp pointer 
Raster line for raster interrupt 
Standard input device= keyboard 
Set z-page storage for standard 
Output device to 3 (=screen) 
Transfer 49 bytes 
Initialization table for VIC chip 
Copy into VIC control registers 
Loop/displacement counter -1 
Loop until 49 values transferred 
Set loop counter for VDC init 
Initialize VDC registers 

Read VDC status 

Is bits 0-2 are cleared 

Yes, skip init. of VDC reg 
Displacement ptr to VDC table 
Initialize VDC registers 

Check if PAL/NTSC version 
Skip, if NTSC version 
Displacement ptr to VDC table 
Initialize VDC registers 

Check NMlI/reset status pointer 
VDC already init, then skip 
Routine INIT80: init. 80-column 
Set bit 7 in acc,combine value 
With the NMI/VDC status 

And write in the status flag 
Loop counter high to high value 
Loop counter low to low value 
Decrement loop counter low 
Loop low code? No, continue 
Decrement loop counter high 
Loop high done? No, continue 
Init. value for SID register 
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qe nn SS nn nn 


E1B0: A2 18 LDX # $18 SID displacement & loop pointer 
E1B2: 9D 00 D4 STA $D400,X Clear SID register (low value) 
E1B5: CA DEX Loop and displ pointer -1 

E1B6: 10 FA BPL $E1B2 Loop until 19 registers erased 
E1B8: A2 01 LDx # $01 Load X-reg with #1 

E1BA: 8E 1A DO sSTX SDO1A Set IRQ mask register 

E1BD: CA DEX Decrement X-reg to zero 

E1BE: 8E 1C 0A SsTX $0AI1C Clear fast serial mode pointer 
E1Cc1: 8E OF OA SsTX SOAOF Clear RS-232 NMI status reg 
E1c4: CA DEX Set X-reg to high value ($FF) 
E1c5: 8£ 06 DC .STX S$DC06 Place value in timer B low 
E1C8: 8E£ 07 DC SsTX $DCO07 Place value in timer B high 
E1CB: A2 11 LDX # $11 Code for "force load" & timer A 
E1CD: 8E OF DC STX S$DCOF Start in the CIA control register 
E1D0: 20 C3 E5 JSR $E5C3 Test routine, if fast serial mode 
E1D3: 20 D6 E5 JSR $E5D6 Is recognized by the disk drive 
E1D6: 20 C3 E5 JSR $E5C3 And responds to the 

E1D9: 4C 4E E5 JUMP S$E54E Clock low signal and RTS 
KHKKKKKKKKKKKKEKKKKKKEKKKEKKKKK KE Initialize the VDC register 


E1DC: BC F8 E2 LDY S$E2F8,X Get register selection from table 


E1DF: 30 OD BMI SE1EE ~ Check end criterium (Bit 7 = on) 
E1E1: E58 INX Displacement to VDC table +1 
E1E2: BD F8 E2 LDA SE2F8,X Get register write value from tbl 
E1E5: E8 INX Displacement to VDC table +1 
E1E6: 8C 00 D6 STY $D600 Set VDC register selection port 
E1E9: 8D 01D6 STA $D601 Write VDC register data port 
E1EC: 10 EE BPL $E1DC Jump to loop start 

E1EE: E8 INX Displacement to VDC table +1 
E1EF: 60 RTS Return from subroutine 


HKKKKKKKKKKKKKKKKKKKEKKKKEKKKKEKE Check <CBM> code in RAM1 


E1FO: A2 F5 LDX # SF5 Initialize the 2-byte zero-page 
E1F2: AO FF LDY # SFF Ptr addr $C3(lo) - $C4(hi) with 
E1F4: 86 C3 STX * $C3 The start address of the 

E1F6: 84 C4 sty * $c4 Kernal vector table (SFFF5) 
E1F8: A9 C3 LDA # $C3 Set FETVEC for fetch routine to 
FIFA: 8D AA 02 STA S$O02AA Start of the vector table 
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E1FD: AO 02 LDY # $02 Displacement for FETCH rout. 
E1FF: A2 7F LDX # S7F Config. code (RAM 1 only) 
E201: 20 A2 02 JSR $02A2 FETCH rout: LDA from any bnk 
E204: D9 C4 E2 CMP S$E2C4,yY Check for code <C> <B> <M> 
E207: DO 1B BNE S$E224 Not equal, then exit 

E209: 88 DEY Loop until three letters checked 
E20A: 10 F3 BPL S$E1FF 

E20C: A2 F8 LDX # SF8 Initialize the 2-byte zero-page 
E20E: AO FF LDY # SFF Ptr at addrs $C3 (lo) - $C4 (hi) 
E210: 86 C3 STX * $C3 With the addr of kernal C-128 
E212: 84 C4 STY * $C4 Mode Vector ($FFF8) 

E214: AO 01 LDY # $01 Displacement for FETCH rout 
E216: A2 7F LDX # S7F Config. code (RAM1 only) 
E218: 20 A2 02 JSR $02A2 FETCH rout: LDA from any bnk 
E21B: 99 02 00 STA $0002,Y Place entry address hi - lo in 
E21E: 88 DEY Zero-page $02-$03. Loop 

E21F: 10 F5 BPL $E216 Until both addresses transferred 
E221: 6C 02 00 JMP ($0002) Indirect jump via zero page 


KEKKKKKKKEKKEKKKEKKKKKKKKKKKKKKKK 


Kernal vector: C128MODE 


E224: AQ 40 LDA # $40 RAM 1, enable all system ROMs 
E226: 8D 00 FF STA SFFOO And set configuration 

E229: AQ 24 LDA # $24 Initialize the 2-byte kernal 

E22B: AO E2 LDY # SE2 Vector for the 128 mode with 
E22D: 8D F8 FF STA SFFF8 The default value 

E230: 8C F9 FF STY $FFF9 $E224 

E233: A2 03 LDX # $03 Loop counter for 3 transfers 
E235: BD C3 E2 LDA $E2C3,X Load <C> <B> <M> from table 
E238: 9D F4FF STA SFFF4,X And copy to the vector range of 
E23B: CA DEX RAM bank 1. Loop until the 
E23C: DO F7 BNE $E235 Three letters are transferred 
E23E: 8E 00 FF STX SFFOO RAM 0, enable all system ROMs 
E241: 60 RTS Return from subroutine 


300 


Abacus Software 


C-128 Internals 


emer enn ee 


KEKKEKKKKKKKKKEKKEKKKKKKKKKKEKKKKE 


B242: AD 05 Dd LDA $D505 
B245: 29 30 AND # $30 
E247: C9 30 CMP # $30 
B249: FO 20 BEQ SE26B 


KKEKKKKKKKKKKKKKKKKKEKKKEKKKKKKKE 


E24B: AQ B3 LDA # SE3 
E24D: 85 O01 STA * S01 
E24F: AQ 2F LDA # $2F 
B251: 85 00 STA * $00 
B253: A2 08 LDX # $08 
B255: BD 62 E2 LDA SE262,X 
E258: 95 Ol STA * $01,X 
E25A: CA DEX 

E25B: DO F8 BNE $5255 
E25D: 8E 30 DO STX $D030 
E260: 4C 02 00 JMP $0002 


KKEKKKKKKEKKKKKKEKKKEKKEKKEKEKKKKKKE 


E263: A9 F7 LDA # $F7 
E265: 8D 05 D5 STA $D505 
E268: 6C FC FF JMP (SFFFC) 


KEKKKKKKKKKKKKKKKKKKEKKEKKKKKEKKK 


E26B: A2 03 LDX # $03 
E26D: 8E CO OA STX SO0ACO 
E270: A9 00 LDA # $00 
E272: 9D Cl OA STA $0AC1,X 
E275: CA DEX 
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Check if EXROM input on MCR 
Serves to switch modes if C64 
cartridge inserted 


Read MCR register of the MMU 
Check if bit 5 set for EXROM 
input 

Yes, then no 64 cartridge present 


Kernal routine: GO64MODE 
Configure system as C64 


C-64 system values in 

Data register processor port 
C-64 system values in 

Data direction reg processor port 
8 bytes to be copied 

Here the ROM original of the 
Routine, which configures C-64 
Is copied into zero page because 
The routine can run only there 
Set clock frequency to 1 MHz 
To zero-page rout: config. C-64 


This routine configures C-128 
as a C-64. It can run only in the 
zero page because all other areas 
are switched off. 


Write init value for C-64 system 
In the MCR register of the MMU 
Jump to RESET vector C-64 


Function ROM test C-128 mode 


Initialize loop and displ counter 
For cartridge test 

The first 4 bytes of the PAT 
(Physical address table of the 
Expansion card) are cleared here 


Abacus Software C-128 Internals 
a ss 


E276: 10 FA BPL $E272 ($00 initialized) 

E278: 85 9EF STA * $9E Low addr value for cartridge test 
E27A: AO 09 LDY # $09 Displacement to cart code(CBM) 
E27C: AE CO OA LDX SO0ACO Displacement cntr for cart check 
E27F: BD BC E2 LDA SE2BC,X Get high addr value from table 
E282: 85 9F STA * SOF And place it in zero page 

E284: BD CO E2 LDA $E2C0,X Get bank val. for test from table 
E287: 85 02 STA * $02 And place itin z-page bank byte 
E289: A6 02 LDX * S02 Get bank code from zero page 
E28B: A9 9E LDA # $9E Get addr $9E as VETVEC in acc 
E28D: 20 D0 F7 #£4x.\JSR SFT7DO INDFET:LDA (fetvec), Y any bk 
E290: D9 BD E2 CMP SE2BD,Y Test 1 character for "CBM" code 
E293: DO 21 BNE SE2B6 Not equal, next bank/address 
E295: 88 DEY Continue test for "CBM" code 
E296: CO 07 CPY # $07 If 3 code chars are recognized 
E298: BO EF BCS S$E289 Then continue, else in test loop 
E29A: A6 02 LDX * $02 Get bank code of current test 
E29C: AQ 9E LDA # S9E Get addr $9E as FETVEC in acc 
E29E: 20 D0 F7 #£4x™%\JSR $F7D0 INDFET: LDA(fetvec), Y any bk 
E2Al: AE CO 0A LDX SO0ACO Get F ROM displacement pointer 
E2A4: 9DCl1O0A STA S$0AC1,X ID table of expansion card 
E2A7: C9 01 CMP # $01 Check expansion indicated 
E2A9: DO OB BNE SE2B6 No, then skip to next test 

E2AB: A5 9E LDA * S9E Low of entry address in acc 
E2AD: A4 9F LDY * S$9F High of entry address in Y-reg 
E2AF: 85 04 STA * $04 Low of entry address in PC low 
E2B1: 84 03 STY * $03 High of entry address in PC hi 
E2B3: 20 CD 02 JSR $02cCD JSRFAR: JSR to any bk+RTS 
E2B6: CE CO 0A DEC. $O0ACO Loop/displacement counter -1 
E2B9: 10 BEF BPL SE27A Not zero, then continue test 
E2BB: 60 RTS Return from subroutine 


KAEKKKKKKKKKKKKKKKKKKKKK KK KKK KK High addresses for cartridge test 


E2BC: CO 80 CO 80 $CO00, $8000, $C000, $8000 
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E2C0: 


04 04 08 


08 


KAEKEKKKEKKEKKEKKKKEKKKKKEKEERKEKRKEKEKKK 


E2C4: 


43 42 4D 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


E2C7: 
E2CF: 
E2D7: 
E2DF: 
E2E7: 
E2EF: 
E2F7: 


00 
00 
FF 
O01 
O1 
03 


00 
00 
00 
00 
02 
04 


00 
00 
00 
00 
03 
05 


00 
00 
00 
00 
O01 
06 


00 
00 
08 
00 
02 
07 


KKKKKKKKKKKKKEKKEKKKKKKKEKKKKKKKK 


E2F8: 
E300: 
E308: 
E310: 
E318: 
E320: 
E328: 
E330: 
E332: 
E333: 
E335: 
E336: 
E33A: 


00 
04 
08 
0c 
14 
19 
1D 
16 
FF 
19 
FF 
04 
FF 


01 
05 
09 
OD 
15 
1A 
22 


27 07 


50 
00 
07 
00 
00 
FO 
7D 


02 
06 
OA 
OE 
17 
1B 
25 


66 
19 
20 
00 
08 
00 
64 


03 
07 
OB 
OF 
18 
1c 
24 


.Byte SFF 


-Byte 9$FF 
20 


Byte $FF 


49 
1D 
07 
00 
20 
20 
05 


KKKEKKKKKKKKEKKKKEKKKKEKKKKKRKKKEKSE 


E33B: 
E33D: 
E33E: 
E340: 


09 40 

2C 

09 20 

20 EC E7 


ORA # $40 
-Byte $2C 
ORA # $20 
JSR SE7EC 
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Bank numbers for cartridge test 
inROM,inROM,exROM,exROM 
Code for cartridge indication 
<C> <B> <M> 


Intialization table for VIC regs 


Initialization table for VDC regs 
VDC tab 1 


Separator 
VDC tab 2 
Separator 
VDC tab 3 
Separator 


Kernal routine: TALK 


Set bit 6 for TALK 

Skip to $E340 

Set bit 5 for listen 

Wait for end of RS-232 transfer 


Abacus Software C-128 Internals 


a 
Kernal routine: LISTN 


KEKEKKKKKKKKEKKKKKKKKEKKKKKKKKKE 


E343: 48 PHA Save Talk/Listn marker on stack 
E344: 24 94 BIT * $94 Another byte to output? 

E346: 10 OA BPL $E352 No, then continue 

E348: 38 SEC Set carry for rotation 

B349: 66 A3 ROR * S$A3 Set flag for EOI 

E34B: 20 8C E3 JSR S$E38C Output byte to serial bus 

E34E: 46 94 LSR * $94 Erase character in buffer marker 
E350: 46 A3 LSR * $A3 Clear flag for EOI again 

E352: 68 PLA Get old acc contents back 

E353: 85 95 STA * $95 Store byte to output in zero page 
E355: 2073 E5 JSR $E573 SEI, 1 MHz, turn sprites off 
E358: 2057 E5 JSR $E557 Output data high 

E35B: AD 00 DD LDA SDDOO Check if the ATN signal is set 
E35E: 29 08 AND # $08 On data port A of CIA 2 

E360: DO 12 BNE $E374 Not set, then skip 

E362: 20 D6 E5 JSR SE5D6 Pulse for fast serial mode 

E365: AQ FF LDA # SFF V/O data buffer for serial 

E367: 8D O0C DC STA SspDcoc Set transfer to high value 

E36A: 20 BC E5 JSR SE5BC Wait for response from bus 
E36D: 8A TXA Store X-reg contents in acc 
E36E: A2 14 LDX # $14 Set loop counter to 20 

E370: CA DEX Decrement loop counter by 1 
E371: DO FD BNE $E370 Wait until loop counted down 
E373: AA TAX Recreate old X-reg contents 
E374: AD 00 DD LDA SDDOO Read port A of CIA 2 

E377: 09 08 ORA # $08 Set ATN lo signal & write back 
E379: 8D 00 DD STA SDDO0O to Port A of CIA 2 

E37C: 20 73 E5 JSR $E573 Clk freq. 1MHz, turn sprites off 
E37F: 20 4E E5 JSR SE54E Output clock low 

E382: 2057 E5 JSR $E557 Output data high 
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E385: 
E386: 
E388: 
E389: 
E38B: 


TXA 
LDX 
DEX 
BNE 
TAX 


# SB8 


SE388 


KEKKKKKKKKKKKKEKEKKKEKEKKKEKKKEKKKK 


E38C: 
E38F: 
E392: 
E395: 
E397: 
E39A: 
E39D: 
E3A0: 
E3A2: 
E3A4: 
E3A7: 
E3A9: 
E3AC: 
E3AE: 
E3Bl1: 
E3B4: 
E3B6: 
E3B7: 
E3BA: 
E3BC: 
E3BE: 
E3C0: 
E3C3: 
E3C4: 
E3C6: 
E3C8: 
E3CB: 
E3CD: 
E3CF: 
E3D2: 


20 
20 
20 
90 
4c 
Ze 
20 
24 
10 
20 


73 
57 
69 
03 
28 
OD 
45 
A3 
OA 
69 
FB 
69 
FB 
00 
00 
F8 


OD 
08 
05 
CO 
1c 


E8 
10 
00 
08 
13 
IC 
OE 


E5 
E5 
E5 
E4 
DC 
E5 
E5 
ES 
DD 


DD 


DC 


OA 


DD 


OA 


SE573 
SE557 
SE569 
SE39A 
SE428 
SDCOD 
SE545 
* SA3 
SE3AE 
SE569 
SE3A4 
SE569 
SE3A9 
SDDO00 
SDD00 
SE3AE 


SDCOD 
# $08 
SE3C3 
# $CO 
SOA1C 


SE3AE 
# $10 
SDD00 
# $08 
SE3E2 
SOA1C 
SE3E2 
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Delay loop about 1 millisecond 


Store X-reg contents in acc 
Set loop counter to 184 
Decrement loop counter by 1 
Loop until counter = 0 
Restore X-reg contents 


Byte on serial bus (prepare) 


Clock freq. 1 MHZ, sprites off 
Output data high 

Get bit from serial bus into carry 
Data not low, then OK and skip 
“Device not present” - sys status 
Test CIA interrupt control reg. 
Output clock high 

Zero-page pointer for EOI set? 
No, then skip 

Get bit from serial bus into carry 
Wait for data low signal 

Get bit from serial bus into carry 
Wait for data high signal 

Here data is read from port A 
Of CIA 2 


Data read are stored on the stack 
Check interrupt control register 
Is timer A on "one shot"? 

Yes, then skip 

Set Control bits 6 and 7 in sys- 
tem pointer for fast serial mode 
Get data read back from stack 
Bit 7 cleared, then skip 

Set bit 4 for clk output on serial 
bus and write in port A | 
Check if bit 3 is set 

No, then skip 

Check bit 7, serial mode pointer 
Bit 7 cleared, then skip 
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E3D4: 
E3D7: 
E3D9: 
E3DC: 
E3DF: 


20 
A5 
8D 
20 
4c 


D6 ES 
95 

OC DC 
BC ED5 
12 E4 


SESD6 
#995 
SDCOC 
SE5BC 
$SE412 


KKEKEKKEKKKKKKKEKEKKKKKEKKKKKKKKKKKEK 


E3E2: 
E3E4: 
E3E6: 
E3E9: 
E3EC: 
E3EE: 
E3EF: 
ESF1: 
E3F3: 
E3F5: 
E3F8: 
E3FA: 
E3FD: 
E400: 
E401: 
E402: 
E403: 
E404: 
E407: 
E409: 
E40B: 
E40E: 
E410: 
E412: 
E413: 
E414: 
E416: 
E419: 
E41B: 
E41C: 
E41D: 
E420: 


08 
A5 
00 DD 
00 DD 
F8 


34 
95 
05 
60 E5 
03 
57 ES 
45 ES 


00 DD 
DF 
10 
00 DD 
AS 
D4 


22 
69 E5 
05 


OF ES 


LDA 
STA 
LDA 
CMP 
BNE 
ASL 
BCC 
ROR 
BCS 
JSR 


# $08 
* SA5 
SDD00 
SDD00 
SE3E6 
A 

SE425 
* $95 
SE3FA 
$E560 
SE3FD 
$E557 
SE545 


SDDO0 
# SDF 
# $10 
SDD00 
* SAS 
SE3E6 


# $22 
SE569 
SE420 


SE59F 
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Impulse for fast serial mode 
Get stored byte and write in 
CIA input/output register 
Wait for response from bus 
Byte output over serial bus 


Byte on serial bus (output) 


Initialize counter for number of 
Bits to send with 8 

Here data is read from port A 
Of CIA 2 


Data shifted into the carry flag 
Output data high,output timeout 
Prepare bit for output 

Check if bit is set 

No, then output data low 

And jump to clock high output 
Output data high 

Output clock high 

No Operation 

No Operation 

No Operation 

No Operation 

Read port A of CIA 2 | 

Bit 5:Clear data output serial bus 
Bit 4:Set clock output serial bus 
Write in data port A 

Decrement bit counter by 1 
Output additional bit, then loop 
Copy contents of X-reg to acc 
And store X-reg on stack 

High impulse counter to #34 
Get 1 bit from serial bus to carry 
Data high, then skip 

Get old X-reg contents from 
stack and restore 

Reset clock freq. and sprites 
Decrement data high counter 
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E421: DO F3 BNE $5416 
E423: 68 PLA 
E424: AA TAX 
B425: AY 03 LDA # $03 
E427: 2C -Byte $2C 
E428: A9 80 LDA # $80 
E42A: 48 PHA 
E42B: AD 1C OA LDA S$0A1C 
E42E: 29 7F AND # S7F 
E430: 8D 1C 0A STA SOAI1C 
E433: 68 PLA 


B434: 20 57 F7 JSR SF757 
B437: 20 9F ES JSR SE59F 
E43A: 18 CLC 

E43B: 4C 35 E5 JMP $E535 


KKEEKKKKKEKEKKEKEKKEKKKEKKEKEKKEKEKEEKKEKE 


B43E: 20 73 ES JSR $5573 


E441: A9 00 LDA # $00 
E443: 85 AS STA * SA5 
E445: 2C 0D DC BIT S$DCOD 
E448: 8A TXA 
E449: 48 PHA 


B44A: 20 45 ES JSR $E545 
B44D: 20 69 ED5 JSR $E569 


E450: 10 FB BPL $E44D 
B452: A2 OD LDX # $OD 
B454: AD 00 DD LDA $DDOO0O 
B457: 29 DF AND # SDF 


E459: 8D 00 DD STA _ $DDO00 
EB45C: AD 00 DD LDA §$DD00 
E45F: CD 00 DD CMP S$DDO00 


E462: DO F8 BNE $E45C 
E464: OA ASL A 
B465: 10 1D BPL S$E484 
E467: CA DEX 

B468: DO F2 BNE S$E45C 
E46A: A5 AS LDA * S$A5 
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Not yet 22 high pulses, continue 
Get old X-reg contents f/ stack 
Restore X-reg contents 

Code for system status: Time out 
Skip to $E42A 

Code status:Device not present 
Store status code on stack 

Test the fast serial mode pointer 
Mask out bit 7, only fast/slow 
Write in fast-mode flag 

Get status error code 

Set new system status 

Reset clock freq. and sprites 

Set indicator for OK 

Turn off device with Unlsn 


Kernal routine: ACPTR 
Get byte from serial bus 


System clk 1MHz, sprites off 
Clear the zero-page ptr for the 
serial EOI indicator 

Read bit 7 of the CIA ISR 
Store current cont of the X-reg 
Via the acc on the stack; 
Clock signal on port A 

Get bit from serial bus into carry 
Wait for data high signal 
Initialize loop counter with #13 
Read data port A of CIA 2 

Bit 6: clear "serial bus pulse on" 
And write in data port 

Read data port A of CIA 2 and 
A bit arrives over the bus 

On the port 

Shift data bit into the carry flag 
Get data byte from bus 
Decrement loop counter by 1 
Loop not zero, then skip 

Test zero-page EOI pointer 


Abacus Software 


E46C: 
E46E: 
E471: 
E474: 
E476: 
E479: 
E47B: 
E47D: 
E47E: 
E47F: 
E481: 
E484; 
E486: 
E489: 
E48B: 
E48D: 
E490: 
E493: 
E495: 
E496: 
E498: 
E49A;: 
E49D: 
E4A0: 
E4A2: 
E4A3: 
E4A5: 
F4A6: 
E4A8: 
E4AB: 
E4AE: 
E4B0: 
E4Bl1: 
E4B3: 
E4B5: 
E4B8: 
E4BA: 
E4BC: 
E4BF : 
E4C0: 


OF 
60 
45 
40 
oi 
A5 
D5 


02 
2A 
08 
OD 
08 
28 
00 
00 
F8 


RE 
A4 
00 
00 
F8 


F5 


17 
00 
00 
F8 


F5 
E3 
0c 
A4 
CO 
LC 


E5 
ES 


F7 


E4 


DC 


DD 


DD 


DD 
DD 


DD 
DD 


DC 


OA 
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For #0, EOI received, else skip 
Data low signal on serial bus 
Clock high signal on serial bus 
Code for status: EOI line 
Reset system status 
EOI pnter to time error if timeout 
Get data byte to EOI 
Restore stored X-reg contents 
via the acc from the stack 
Code status: timeout for reading 
Reset system status 
Set counter for 8 data bits 
Read interrupt control register 
Test if timer, clock, or bus 
Interrupt. Yes, then skip 
Read data port A of CIA 2 and 
Wait until a bit arrives over 
The port 
Shift data bit into the carry 
No, wait until data are valid 
Data bit in bit storage 
Read data port of CIA 2 and 
Wait until a bit arrives over 
The port 
Shift data bit into the carry flag 
No, then wait 
Counter for data bit number -1 


8 data bits arrived, then skip 


Read data port A of CIA 2 and 
Wait until a bit arrives over 
The port 

Shift data bit into the carry flag 
Jump if bit received is "0" 
Jump if bit received is "1" 
Store contents of I/O data buffer 
In the zero page 

Set bits 6 and 7 in the sys flag 
For the fast serial mode 
Restore old X-reg contents via 
The acc from the stack 
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E4Cl: 
E4C4: 
E4C6: 
E4C8: 
E4CB: 
E4CE: 
E4D0: 
E4D1: 


20 
24 
50 
20 
20 
A5 
18 
60 


60 ES 
90 
03 


38 E5 


9F ES 


A4 


JSR 
BIT 
BVC 
JSR 
JSR 
LDA 
CLC 
RTS 


$E560 
x $90 
SE4CB 
$E538 
SE59F 
* SA4 


KKEKEKKKKKKKKRKKKEKKKEKKKKKKKKKKKKK 


E4D2: 
E4D4: 
E4D7: 
E4DA: 
E4DC: 
E4DF: 


85 
20 
AD 
29 
8D 
60 


95 
71C E3 
00 DD 


F7 


00 DD 


* $95 
SE37C 
SDD00 
# $E7 
SDD00 


KAKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


E4E0: 
E4E2: 
E4E5: 
E457: 
E4E9: 
E4EC: 
E4EF: 
E4F2: 
E4F5: 
E4F8: 
E4FB: 
E4FD: 
E4FE: 
E500: 


85 
20 
24 
30 
20 
20 
20 
20 
AD 
CD 
DO 
OA 
30 
4c 


95 
71C E3 
90 
4c 


73 ES 


60 E5 
D7 E4 
45 E5 
00 DD 
00 DD 
F8 


F5 
SF ES 


STA 
JSR 
BIT 
BMI 
JSR 
JSR 
JSR 
JSR 
LDA 


* $95 
SE37C 
* $90 
SE535 
SE573 
SE560 
SE4D7 
S$E545 
SDD00 
SDD00 
SE4F5 
A 

SE4F5 
SE59F 
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Data low signal on serial bus 
Test STATUS for set EOI bit 
No EOF found, then continue 
Shut device off - Unlsn routine 
Reset clock freq and sprites 

Get data byte in the accumulator 
Set indicator for OK 

Return from subroutine 


Kernal routine: SECND 
Send sec. address after LISTEN 


Store sec. address in zero page 
Output with attention (ATN) 
Read data port A of CIA 2 

Mask out bit 3 and take the ATN 
Signal back to the serial bus 
Return from subroutine 


Kernal routine: TKSA 


Store secondary add in zero page 
Output with attention (ATN) 
Test STATUS for set EOF bit 
EOF encounter, to Unlsn routine 
Clock freq1 MHz, sprites off 
Data low signal on serial bus 
Entry in SECND routine 

Clock high signal on serial bus 
Read data port A of CIA 2 and 
Wait until a bit arrives over the 
Port | 
Shift data bit into the carry 

And wait for data high 

Reset clock freq and sprites 
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E503: 
E505: 
E507: 
E508: 
ES50A: 
E50C: 
E50D: 
E510: 
E511: 
E513: 
E514: 


24 
30 
38 
66 
DO 
48 
20 
68 
85 
18 
60 


94 
05 


94 
05 


8C E3 


95 


BIT 
BMI 
SEC 
ROR 
BNE 
PHA 
JSR 
PLA 
STA 
CLC 


RTS 


x $94 
SE50C 


x $94 
SE511 


SE38C 


* $95 
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E515: 
E518: 
E51B: 
E51E: 
E520: 
E523: 
E525: 


20 
20 
AD 
09 
8D 
A9 
2C 


73 ES 
4E ES 
00 DD 
08 
00 DD 
oF 


JSR 
JSR 
LDA 
ORA 
STA 
LDA 


-Byte 


$E573 
SE54E 
SDDO00 
# $08 
SDDO00 
# SOF 

$2C 
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E526: 
E528: 
E529: 
E52C: 
E52E: 
Rosi 
E532: 
E535: 
E538: 
E539: 
E53B: 
E53C: 
E53E: 
E53F: 


AY 
48 
AD 
29 
8D 
68 
20 
20 


3F 


1c OA 
71F 


1c OA 


43 B3 
D7 E4 


OA 


FD 


45 ES 


# $3F 
SOA1C 
# STE 
SOA1C 


SE343 
SE4D7 


# SOA 


SE53B 


SE545 
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C-128 Internals 


Kernal routine: CIOUT 


Output another byte? 

Yes, then to output loop 

Set carry for rotation 

Set flag for buffered byte 
Skip output loop 

Save the byte on the stack 
Output buffered byte on stack 
Get byte from the stack 

Place in zero-page output storage 
Carry set for "OK" indicator 
Return from subroutine 


Kernal routine: UNTLK 


Reset clock frequency 

Clock low signal to port A 

Read data port A of CIA 2 

Set bit 3 in this value and 
Output ATN lo signal on the bus 
Load code for UNTLK in acc 
Skip to $E528 


Kernal routine: UNLSN 


Load code for UNLSN in acc 
And store on stack 

Status pointer for "fast serial" 
Mask out bit 7 

And write back 

Restore old acc contents 
Kernal routine: LISTN 

Reset ATN, high 

Store X-reg contents in acc 
Time loop for 40 microseconds 
Decrement loop counter by 1 
Wait until loop processed 
Restore old X-reg contents 
Clock high signal on port A 
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E542: 


4C 57 ES 


JMP 


SE557 
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E545: 
E548: 
E54A: 
E54D: 


AD 00 DD 


29 


8D 00 DD 


60 


EF 


LDA 
AND 
STA 
RTS 


SDD00 
# SEF 
SDD00 
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E54E: 
E551: 
E553: 
E556: 


AD 00 DD 


09 


8D 00 DD 


60 


10 


LDA 
ORA 
STA 
RTS 


SDD00 
# $10 
$DD00 
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E557: 
E55A: 
E55C: 
E55F: 


AD 


00 DD 


29 DF 


8D 00 DD 


60 


LDA 
AND 
STA 
RTS 


SDD00 
# SDF 
SDD00 
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E560: 
E563: 
E565: 
E568: 


AD 
09 


8D 00 DD 


60 


00 DD 
20 


LDA 
ORA 
STA 
RTS 


SDD00 
# $20 
SDD00 
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E569: 
E56C: 
E56F: 
E571: 
E572: 


AD 
CD 
DO 
OA 
60 


00 DD 
00 DD 
F8 


LDA 
CMP 
BNE 
ASL 
RTS 


SDD00 
SDD00 
SE569 
A 
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C-128 Internals 


Data high signal on port A 
Clock high signal 


Read data port A of CIA 2 
Clear bit 4 for clock output on 
serial bus and write in port A 
Return from subroutine 


Clock low signal 


Read data port A of CIA 2 
Set bit 4 for clock output on 
serial bus and write in port A 
Return from subroutine 


Data high signal 


Read data port A of CIA 2 
Clear bit 5 for data output on 
serial bus and write in port A 
Return from subroutine 


Data Lo Signal 


Read data port A of CIA 2 

Set bit 5 for data output on serial 
Bus and write in port A . 
Return from subroutine 


Get a bit from serial bus to carry 


Read data port A of CIA 2 and 
Wait until a bit arrives over 
The port 

Bit received (bit 7) into carry 
Return from subroutine 
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E573: 
E974: 
E577: 
E579: 
E57C: 
E97E: 
E581: 
E584: 
E587: 
ED8A: 
E58C: 
ES8F: 
E592: 
E595: 
E597: 
E598: 
E59A: 
E59B: 
E59D: 
ES59E: 


60 


3A 
25 
37 
20 
30 
37 
1s) 
38 
00 
15 
30 
38 
07 


00 


F'D 


OA 
OA 


DO 
OA 
DO 
OA 


DO 
DO 
OA 


SEI 

BIT 

BMI 
BIT 

BMI 

LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
BEQ 
TXA 
LDX 
DEX 
BNE 
TAX 
RTS 


SOA3A 
SE59E 
$0A37 
SE59E 
$D030 
$0A37 
$D015 
SO0A38 
# $00 
$D015 
$D030 
$0A38 
SE59E 


# $00 


SE59A 
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E59F: 
E5A2: 
E5A4: 
E5A7: 
ESAS: 
E5AC: 
EDAF': 
E5B2: 
E5BS: 
E5B7: 
E5BA: 
E5BB: 


3A 
16 
37 
11 


38 


15 
37 
30 
00 
37 


OA 
OA 
OA 
DO 
OA 
DO 


OA 


SOA3A 
SE5BA 
$0A37 
SE5BA 
$0A38 
$D015 
$0A37 
$D030 
# $00 
$0A37 
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C-128 Internals 


Set system clock freq. to 1MHz 
And turn all sprites off 


Disable all system interrupts 
Test interrupt storage 

Bit 7 set, then return 

Check clock frequency 

Bit 7 set, then return 

VIC register for clock frequency 
Save in system storage 

Enable VIC registers for sprites 
Save in system storage 

Init. status for 1 MHz, no sprites 
Turn all sprites off 

Set clock frequency to 1 MHz 
Were sprites on? 

No, then return 

Store X-reg contents in acc 
Delay loop for 1.3 milliseconds 
Decrement loop counter by 1 
Process entire delay loop 
Restore old X-reg contents 
Return from subroutine 


Reset clock frequency and sprite 
pointers to their original status 


Test interrupt storage 

Bit 7 set, then return 

Check clock frequency storage 
Frequency not changed, skip 
Write the stored value of sprite 
Enable register back 

Write the stored value of system 
Clock frequency back 

Clear temp storage for 

System clock frequency 
Enable all system interrupts 
Return from subroutine 
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E5BC: 


E5BF: 


E5Cl1: 
E5C3: 
E5C6: 
E5C8: 
E5CA: 
E5CD: 
E5D0: 
E5D2: 
E5D5: 
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ESD6: 
E5D9: 
E5DB: 
E5DE: 
E5E0: 
E5E3: 
E5E5: 
E5E8: 
E5EA: 
E5ED: 
E5FO: 
E5F2: 
ESF4: 
E5F7: 
ESFA: 
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E5FB: 
E5FD: 


29 


8D 
60 


AD 
09 
8D 
A9 
8D 
A9 


2C 
60 


OD 
08 
F9 
OE 
80 
08 
OE 
05 
F7 
05 


05 
08 
05 
7E 
OD 
00 
05 
04 
04 
OE 
80 
55 
OE 
OD 


90 Cé 
BO D7 


DC 


DC 


DC 


DS 


D5 


D5 


D5 


DC 


DC 


DC 


DC 


DC 
DC 


BCC 
BCS 


SDCOD 
# $08 
SE5BC 
SDCOE 
# $80 
# $08 
SDCOE 
$D505 
# SE7 
$D505 


$D505 
# $08 
$D505 
# STF 
SDCOD 
# $00 
SDC05 
# $04 
SDC04 
SDCOE 
# $80 
# $55 
SDCOE 
SDCOD 


SE5C3 
SE5D6 


Wait for response from bus 


Get CIA interrupt control reg. 
Wait until bit 4 (SRQ input from 
Serial bus) is cleared 

Read control register A of CIA 


- Eliminate bit 7 for 50 Hz freq. 


Set timer to mode toggle and 
"One shot" and start timer 
Mask out the control bit for fast 
Serial mode in mode config. reg 
Of the MMU 

Return from subroutine 


Fast pulse on serial bus 


Set the control bit for the fast 
Serial mode in mode config reg 
Of the MMU 

Clear code for interrupt 

To interrupt control register 
Load timer A high in CIA 2 with 
the high value #0 

Load timer A low in CIA 2 with 
the low value #4 

Read control register A of CIA 
Eliminate bit 7 for 50 HZ freq 
Set timer to force load, toggle 
Serial bus off and start timer A 
Read interrupt control register 
Return from subroutine 


Kernal routine: FSTMOD 


Wait - response from serial bus 
Fast pulse on serial bus 
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EOFF: 
E601: 
E603: 
E605: 
E607: 
E609: 
E6OB: 
E60C: 
E60D: 
E60F: 
E611:. 
‘E613: 
E615: 
E616: 
E618: 
E61A: 


29 
85 
60 


B4 
47] 
3F 
B6é 
00 
O01 


BD 
BD 
B4 
06 


04 
B5 


LDA 
BEQ 
BMI 
LSR 
LDX 
BCC 
DEX 
TXA 
EOR 
STA 
DEC 
BEQ 
TXA 
AND 
STA 
RTS 


* SB4 
SE64A 
SE644 
* SB6 
# $00 
SE60C 


* SBD 
* SBD 
* SB4 
SE61B 


# $04 
* $B5 
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E61B: 
E61D: 
E620: 
E622: 
E624: 
E626: 
E628: 
E62A: 
E62B: 
E62D: 
E630: 
E632: 
E634: 
E636: 
E638: 
E63A: 
E63C: 
E63E: 
E640: 


A9 
2C 
FO 
30 
70 
A5 


20 
11 
14 
1c 
14 
BD 
O01 


B4 
10 
E3 
B4 
DE 
B4 
FO 
BD 
ED 
EKA 
E9 


OA 


OA 


# $20 
$0A11 
SE636 
SE640 
SE63A 
* SBD 
SE62B 


x $B4 
$0A10 
SE615 
* SB4 
SE615 
x SB4 
SE62A 
x SBD 
$E62B 
SE62A 
SE62B 
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C-128 Internals 


RS-232 output 


Number of bits to send 

Is byte completely transferred? 
Is stop bit required? 

Shift next bit into carry 
Initialize X-reg as ind. with $00 
Bit cleared? 

No, then set X-reg to $FF 
Copy bit cleared indicator to acc 
Combine with parity status 
Save again in zero-page parity 
Decrement bit counter by 1 

All bits transferred, continue 
Copy X-reg contents into acc 
Isolate bit 2 

And put in output register 
Return from subroutine 


Check transmit parity 


Set bit 5 in acc for parity 
Check RS-232 command reg. 
Op. mode without parity, skip 
Op. mode with set parity? 

Op. mode for uneven parity? 
Parity equal orie? 

No, then skip 

Set parity to $FF 

Set bit counter to $FF 

Get RS-232 control reg. in acc 
Are two stop bits required? 
Set bit counter to $FE 

Not zero, calculate stop bits 
Bit counter +1, no parity 

Not zero, calculate stop bits 
Get parity value from zero page 
Output a zero bit for 0 

Not zero, then output 1-bit 
Routine: output 0-bit 
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E642: 
E644: 
E646: 
E648: 


50 K6 
E6 B4 
A2 FF 
DO CB 


BVC 
INC 
LDX 
BNE 


SE62A 
x SB4 
# SEF 
SE615 
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E64A: 
E64D: 
E64E: 
E650: 
E653: 


E655: 


E657: 
E659: 
E65B: 
E65D: 
E660: 
E662: 
E665: 
E668: 
E6O6A: 
E66C: 
E66E: 
E671: 


AD 11 
4A 

90 07 
26 02 
10 1D 


90 1E 


AY 00 
85 BD 
85 BS 
AE 15 
86 B4 
1A 
cc 1B 
FO 13 
Bl CA 
85 Bé6é 
BE 1A 
60 


OA 


DD 


OA 


OA 
OA 


OA 


LDA 
LSR 
BCC 
BIT 
BPL 


BVC 


LDA 
STA 
STA 
LDX 
STX 
LDY 
CPY 
BEQ 
LDA 
STA 
INC 
RTS 


SOA11 
A 

SE657 
SDD01 
SE672 


$E675 


# $00 
* SBD 
* $B5 
SOA15 
* SB4 
SOA1A 
SOA1B 
SE67D 


($CA) ,¥ 


zk SB6 
SOA1A 
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B672: 


F674: 
E675: 


E677: 
E67A: 
E67D: 
E67F: 
E682: 


AQ 40 


2C 
AY 10 


OD 14 
8D 14 
AY 01 
8D OD 
4D OF 


OA 
OA 


DD 
OA 


LDA 


.Byte 


LDA 


ORA 
STA 
LDA 
STA 
KOR 


# $40 


$2C 
# $10 


$0A14 
S$0A14 
# SOl 
SDDOD 
SOAOF 
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Routine: output 1-bit-fixed parity 
Increment bit counter by 1 

Put code value- stop bit in X-reg 
Unconditional jump 


3-line / X-line handshake test 


Load ace with RS-232 cmd reg 
Shift bit O into carry flag 

Skip 3-line handshake read 
Read port B of CIA 2 

Is DATA SET READY (DSR) 
signal missing 

Is CLEAR TO SEND (CTS) 
signal missing? 

Clear z-page buffer for RS- 232 
Parity ($00) and the zero page 
Storage for the start bit to send 
Copy number of bits to transfer 
Into zero-page as counter 
Comp index to start of output 
buffer with end. If all bytes are 
transferred then done. 

Get data byte from RS-232 
buffer and pass in storage 
Index: incr start of output buffer 
Return from subroutine 


Set NMI status for RS-232 


Code for DATA SET READY 
(DSR) missing 

Skip to $E677 

Code for CLEAR TO SEND 
(CTS) missing 

Combine with RS-232 status reg 
And put in status register 

Load acc with $01 and clear the 
NMI for timer A 

Combine w/ RS-232 NMI status 
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E685: 
E687: 
E68A: 
E68D: 


09 


8D OF OA 


8D 
60 


80 


OD DD 


ORA 
STA 
STA 
RTS 


# $80 
SOAOF 
SDDOD 
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E68E: 
E690: 
E692: 
E695: 
E697: 
E698: 
E69A: 
E69B: 
E69C: 


A2 
A9 
2C 
F'0 
CA 
50 
CA 
CA 
60 


09 
20 
10 OA 
O01 


02 


LDX 
LDA 
BIT 
BEQ 
DEX 
BVC 
DEX 
DEX 
RTS 


# $09 
# $20 
$0A10 
SE698 


SE69C 


Reverse flag for RS-232 & place 
value in the RS-232 NMI status 
Allow all further NMIs 

Return from subroutine 


Calculate num. RS-232 data bits 


Default value to 8 data bits 
Check value for num of data bits 
Check RS-232 control register 
Bit 5 cleared? 

Decrement number of data bits 
Bit 6 cleared? 

Decrement number of data bits 
Decrement number of data bits 


~ Return from subroutine 


KKEKEKKKKKEKKKKKKKKKKKKKKKKKKKKKEK 


E69D: 
EO9F: 
E6A1: 
E6A3: 
E6A5: 
E6A7: 
E6A9: 
EGAB: 
E6AD: 
E6AF: 
E6B1: 


Aé 
DO 
C6 
FO 
30 
A5 
45 
85 
46 
66 
60 


AY 
33 
A8 


LDX 
BNE 
DEC 
BEQ 
BMT 
LDA 
EOR 
STA 
LSR 
ROR 
RTS 


* SA9 
SE6D4 
x SA8 
SE6DF 
SE6B4 
* SAT 
SAB 
SAB 
SAT 
* SAA 


+ + + 
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E6B2: 
E6B4: 
E6B6: 
E6B8: 
E6BB: 
E6BC: 


C6 
ADS 
FO 
AD 
OA 
AY 


A8 
Al 
6B 
10 OA 


01 


DEC 
LDA 
BEQ 
LDA 
ASL 
LDA 
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Process bit received 


Check if it is a start bit 

No, skip 

Decrement bit counter by 1 

All bits received, then continue 
If stop bits expected, then skip 
Get received bit in acc 

And combine for parity 

Place parity value in zero page 
Shift received bit into carry flag 
And in input buffer 

Return from subroutine 


Set start bit pointer when all 
stop bits have been received 


Decrement bit counter by 1 

Get stop bit value in acc and 
Check if it is zero. Skip 
RS-232 control register in acc 
Number of stop bits into carry 
Addition value num of stop bits 
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E6BE: 
E6CO0: 
E6C2: 
E6C4: 
E6C7: 
E6CA: 
E6CD: 
E6CEF: 
E6D1: 


65 
DO 
A9 
8D 
OD 
8D 
85 
AY 
4c 


A8 
EF 
90 
OD DD 
OF OA 
OF OA 
A9 
02 
TF E6 


x SA8 
SE6B1 
# $90 
SDDOD 
SOAOF 
SOAOF 
x SAQ 
# $02 
SE67F 
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E6D4: 
E6D6: 
E6D8: 
E6DA: 
 EB6DC: 
E6DE: 


A5 
DO 
85 
A9 
85 
60 


LDA 
BNE 
STA 
LDA 
STA 
RTS 


* SAT 
SE6C2 
* SAY 
# $01 
x SAB 
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E6DF: 
E6E2: 
E6E3: 
E6E6: 
E6E8: 
EOEB: 
E6EC: 
E6EE: 
E6F1: 
E6F3: 
E6F5: 
E6F6: 
E6F7: 
E6F9: 
E6FB: 
E6FD: 
E700: 
E702: 
E704: 


AC 
C8 
ce 
FO 
8C 
88 
AS 
AE 
E0 
FO 
4A 
E8 
DO 
91 
AY 
2C 
FO 
30 
A5 


18 OA 


19 
2A 
18 OA 


OA 


AA 
15 
09 
04 


OA 


OA 


LDY 
INY 
CPY 
BEQ 
STY 
DEY 
LDA 
LDX 
CPX 
BEQ 
LSR 
INX 
BNE 
STA 
LDA 
BIT 

BEQ 
BMI 
LDA 


$0A18 


S0A19 
$E712 
$0A18 


* SAA 
$0A15 
# $09 
SE6F9 
A 


SE6F1 


($C8) ,¥ 


# $20 
S0A11 
SE6B2 
SE6B1 
* SAT 
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Add data bits and stop bits 
Not all stop bits received, skip 
RXD over flag received in acc 
And enable NMI 

Combine w/ RS-232 NMI status 
And place in RS-232 NMI status 
Set flag for start bit 

Init. acc with 2 for transmission 
And clear the NMI for timer B 


Check for RS-232 start bit 


Get start bit value in acc 

Not zero, skip. Else reset the 
Zero-page start bit flag and reset 
the zero-page ptr for RS-232 
Reset input parity 

Return from subroutine 


Process received byte 


Index to the start of RS-232 
Increment input buffer by 1 
Compare with end. If buffer, 
Then set appropriate status 
Write buffer index 

And decrement by 1 again 

Get received bit from zero page 
Number of data bits in X-reg 

8 bits, 1 stop bit received? 
Yes, then everything OK 

Shift bits in correct position 
Increment data bit counter by 1 
Jump to byte adjustment 

Write byte in input buffer 
Control value for parity check 
Test RS-232 command register 
Transfer is without parity 
Fixed bit value for parity 
Recevied parity bit in acc 
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E706: 
E708: 
E70A: 
E70C: 
E70D: 
E7OF: 
E711: 
E712: 
E714: 
E715: 
E717: 
E718: 
E71A:;: 
E71D: 
E720: 


45 
F0 
70 
2C 
50 
AY 
2C 
AY 
2C 
AQ 
2C 
AY 
OD 
8D 
4c 


80 


02 


14 OA 


14 
C2 


OA 
E6 


BOR 
BEQ 
BVS 


-Byte 


BVC 
LDA 


-Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 
ORA 
STA 
JMP 


* SAB 
SE70D 
SE6B1 

$2C 
SE6B1 
# $01 

$2c 
# $04 

$2C 
# $80 

$2C 
# $02 
$0A14 
$0A14 
SE6C2 
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E723: 
E725: 
B727: 
E729: 
E72B: 
E72E: 
E72F: 
E731: 
E733: 
E736: 
E738: 
E73A: 
E73D: 
E73F: 
B741: 
E744; 
E746: 
E749: 
E7 4B: 
E74E: 
E751: 
E753: 


AA 
Fl 
EC 
9A 
11 


29 
02 
O01 
1D 
20 
OF 
02 
F9 
O01 
FB 
O01 
02 
O01 
O01 
07 
F9 


OA 


DD 


OA 


‘DD 


DD 


DD 
DD 


LDA 
BNE 
BEQ 
STA 


BMI 


* SAA 
SE718 
$E715 
* SOA 
SOA11 
A 

SE75A 
# $02 
SDDO1 
SE755 
SE75A 
SOAOF 
# $02 
SE73A 
SDD01 
SE741 
SDDO1 
# $02 
SDDO1 
SDDO1 
SE75A 
SE74E 
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Compare with calculated parity 
Equal, then continue with OK 
Equal parity, continue with OK 
Skip to $E70F 

Unequal parity continue w/ OK 
Code for parity error in acc 
Skip to $E714 

Input buffer full of code in acc 
Skip to $E717 

Break command received in acc 
Skip to $E71A 

Load error code in Acc. 
Combine code w/ RS-232 status 
And place in RS-232 status reg 
Jump: receive the next byte 


RS-232 CKOUT,output RS-232 


Get received byte in acc 

Framing error 

Break command received 

Place device num in zero page 
Load RS-232 command register 
Shift bit 0 (handshake) into carry 
Jump for 3-line handshake 

Code DATA SET READY test in 
acc. Read port B of CIA 2 

No DSR signal, then error 

No Request To Send signal 

Get RS-232 NMI status in acc 
When data-receive is active, then 
Wait, until reception is done 
Read port B of CIA 2 

Wait for Clear To Send signal 
Read port B CIA 2 and set bit 2 
For Request To Send signal 
Write in port B 

Read port B CIA2 and wait for 
Clear To Send signal 

Poll Data Set Ready 
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E755: 
E757: 
E75A: 
E75B: 


KKEKKKKKKEKKKKEKKEKKKKKKKKKKKKKEKKE 


E75C: 
E75F: 
E762: 
E763: 
E766: 
E768: 
E76B: 
E76C: 
E76E: 
E770: 
E773: 
E774: 
E776: 
E778: 
E77B: 
EV7E: 
E781: 
E784: 
E787: 
E789: 
E78C: 
E78F: 
E791: 
E794: 


KEKEKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


E795: 
E797: 
E79A: 


AQ 40 
8D 14 OA 


18 
60 


8D 
60 


85 


710 
1B 


1A 
F4 
1B 


9E 
CA 
OF 


1E 
10 
OE 
16 
04 
17 
05 
81 
7F 
4A 
11 
OE 


99 


E7/ 
OA 


OA 


OA 


OA 


DD 
OA 
DD 
OA 
DD 


E6 
E6 


DD 


AD 11 0A 


4A 


LDA 
STA 
CLC 
RTS 


STA 


# $40 


S0A14 


$E770 


SOA1B 


SOA1A 
SE75C 


SOA1B 


* $9E 


(SCA) ,¥ 


SOAOF 
A 
SE794 


# $10 


SDDOE 
SO0A16 
SDD04 
$0A17 


SDD05 


# $81 
SE67F 


SE64A 
# $11 


SDDOE 


x $99 


LDA $0A11 
LSR A 


Code - missing Data Set Ready 
Write signal in RS-233 status 
Set carry for OK indicator 
Return from subroutine 


Output in RS-232 Buffer 
CTS = Clear to send 
DSR = Data set read 


Start transfer is necessary 

Index end RS-232 output buffer 
Get in X-reg and increment by 1 
Comp with start of output buffer 
Buffer full, then wait 

Set new index to output buffer 
And decrement this pointer by 1 
Get byte to output in acc 

And write in output buffer 
Copy RS-232 NMI flag into acc 
Test if bit 0 is set 

Sending already? 

Initialize timer A with $10 

And then start it 

Set the 2-byte timer for the 
Transmit baud rate in 
$DD04-$DD05 


Code timer A underflow NMI 
NMI on underflow of timer A 
Chk CTS+DSR, enable transfer 
Initialize timer A with $11 

And start it 

Return from subroutine 


RS-232 CHKIN, Set RS-232 
input 


Place device num. in zero-page 
RS-232 command register in acc 
Shift bit 0 (handshake) into carry 
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E79B: 
E79D: 
E79F: 
E7A1: 
E7A3: 
E7A6: 
E7A8: 
E7AA: 
E7AD: 
E7AE: 
E7BO: 
E7B3: 
E7B5: 
E7B8: 
E7BB: 
E7BD: 
E7BEF : 
E7C1: 
E7C2: 


01 DD 


OF OA 


FA 
O01 DD 
FD 
01 DD 
01 DD 
04 
F9 
90 


JF E6 


SE7C5 
# $08 
SE7C5 
# $02 
SDDO1 
SE755 
SE7CC 
SOAOF 
A 

SE7AA 
SDD01 
# SFD 
SDD01 
SDD01 
# $04 
SE7B8 
# $90 


SE67F 


KEKKKKKKEKKKKEKKKEKKKKKKKKRK KKK 


E7C5: 
E7C8: 
E7CA: 
E7CC: 
E7CD: 


AD 
29 


OF OA 
12 


FO F3 


18 
60 


LDA 
AND 
BEQO 
CLC 
RTS 


SOAOF 
# $12 
SE7BE 


KKEKKEKKKKKKKKKKKKKEKKEKEKKKKKKKKERK 


E7CE: 
E7D1: 
E7D4: 
E7D7: 
E7D9: 
E7DB: 
E/7DE: 
E7EO: 
E7E3: 


AD 
AC 
CC 
FQ 
29 
8D 
Bl 
EE 
60 


14 OA 
19 OA 
18 OA 
OB 
F7 
14 OA 
C8 
19 OA 


$0A14 
SOA19 
$0A18 
SET7E4 
# SF7 
S$0A14 


($C8),Y 


S0A19 
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3-line handshake, then continue 
Test duplex operation 

Full duplex, then continue 
Code for DSR signal test 

Test port B of CIA 2 for DSR 
Missing, then set status and exit 
Test Ready to Send signal 
RS-232 NMI status flag in acc 
Is send operation active, then 
Wait until transfer finished 
Read port B of CIA and 
Eliminate bit 0 - Request to Send 
Return signal on port B 

Read port B of CIA 2 and 
Check D TR signal 

Not present, then wait 

Get NMI mask for "flag" in acc 
Clear carry as OK indicator 
Enable RS-232 NMI 


RS-232 CHKIN for 3-line 
handshake 


Get RS-232 NMI status in acc 
If the RS-232 is not yet active 
Then start 

Clear carry as OK indicator 
Return from subroutine 


GET from RS-232 


Get RS-232 status byte in acc 
Index end RS-232 input buffer 
Comp with start of input buffer 
If equal, then buffer empty: Skip 
Mask out bit 3 (buffer empty) 
And clear in RS-232 status 

Read 1 byte from RS-232 buffer 
Index RS-232 input buffer + 1 
Return from subroutine 
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KAEKEKKKKKKKEKKKEKKKKKKEKKKKKKKKKKK 


E7E4: 
E7E6: 
E7E9: 
E7EB: 


09 08 
8D 14 OA 


A9 
60 


00 


ORA 
STA 
LDA 
RTS 


# $08 


$0A14 


# $00 


GET RS-232 if buffer empty 


Set bit 3 (marker - buffer empty) 
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E7EC: 
E7ED: 
E7FO: 
E7F2: 
E7E5: 
EVJE7: 
EV7E9: 
E7FB: 
E7FE: 
E800: 
E803: 
E804: 


8D 
68 
60 


OF 
11 
OF 
03 
F9 
10 
OD 
00 
OF 


OA 


OA 


DD 


OA 


SOAOF 


SE803 
SOAOF 
# *03 
SETF2 
# $10 
SDDOD 
# $00 


SOAOF 


KAEKKKKKKKKKEKEKEKKKKKEKKKKKKKKKKKK 


E805: 
E806: 
E809: 
E80A: 
E80C: 
E80E: 
E811: 
E813: 
E815: 
E818: 
E81B: 
E81E: 
E81F: 
E821: 
E823: 
E825: 


98 
2D 


OF 


01 
28 
00 
FB 
B5 
00 
OF 
OD 


12 
OD 
02 
06 


OA 


DD 


DD 
OA 
DD 


SOAOF 


# $01 
$E836 
SDD00 
# SFB 
* S$B5 
SDD00 
SOAOF 
SDDOD 


# $12 
SE830 


# $02 


SE82D 
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In RS-232 status 
Pass $00 as character read 
Return from subroutine 


Wait for end of RS-232 


Save acc contents on stack 
Get RS-232 NMI flag 

Not set, then OK and continue 
Read RS-232 NMI flag again 
Bit O = send, bit 1 = receive 
Wait for end 

Load acc with $10 

Interrupt via "flag" line 
RS-232 NMI flag 

Set status to "OK" 

Restore acc contents 

Return from subroutine 


NMI routine for RS-232 


Interrupt Control Register (ICR) 
Combine with RS-232 NMI flag 
And store result in X-reg 

Mask bits 1 - 7 and check if 
Send operation is active. no:Skip 
Load acc with data port 

Clear bit 2 (TXD) and pass the 
Bit to send 

Store in data port 

Copy RS-232 NMI flag in acc 
And write again into ICR 
ICR/RS-232 NMI combine acc 


‘Isolate bits 1 and 4 


Not set, start byte reception 
Isloate bit 1, call of timer B 
Not set, the start bit 
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E827: 20 78 E8 JSR $E878 Process received bit 

E82A: 4C 30 E8 JMP $E830 Start reception of byte 
E82D: 20 A9 E8 JSR SE8A9 Preparation for recept. next byte 
E830: 20 FF E5 JSR SESFF Start reception of byte 
E833: 4C 49 E8 JMP $E849 Return from interrupt 
E836: 8A TXA Store X-reg contents in acc 
E837: 29 02 AND # $02 Data reception? 

E839: FO 06 BEQ $E841 No, the skip processing 
E83B: 20 78 E8 JSR $E878 Process received bit 

E83E: 4C 49 E8 JMP SE849 Return from interrupt 
E841: 8A TXA Restore old X-reg contents 
E842: 29 10 AND # $10 Check if a start bit expected 
E844: FO 03 BEQ SE849 No, then continue 

E846: 20 A9 E8 JSR SE8A9 Prepare next bit reception 
E849: AD OF OA LDA SOAOF Load RS-232 NMI flag 
E84Cc: 8D 0D DD STA SDDOD Copy in ICR of CIA 2 
E84F: 60 RTS Return from subroutine 


KKKKKKKKEKKKKEKKEKKEKKEKKKKKKKKEKKEEK 


E850: Cl 27 (= 10177) 50 Baud 
E852: 3E 1A = 6718) 75 Baud 
E854: C5 11 = 4549) 110 Baud 
E856: 74 OE = 3700) 134.5 Baud 
E858: ED 0C = 3309) 150 Baud 
E85A: 45 06 = 1605) 300 Baud 
E85C: FO 02 = 752) 600 Baud 
E85E: 46 01 = 326) 1200 Baud 
E860: B8 00 = 184) 1800 Baud 
E862: 71 00 = 113) 2400 Baud 
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Timer constants RS-232 baud 
rate .Table 1 for NTSC version 
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Timer constant for RS-232 baud 


rate. Table 2 for PAL version 


E864: 19 26 (= 9753) 50 Baud 
E866: 44 19 (= 6468) 75 Baud 
E868: 1A 11 (= 4378) 110 Baud 
E86A: E8 OD (= 3560) 134.5 Baud 
E86C: 70 0C (= 3184) 150 Baud 
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E86E: 
E870: 
E872: 
E874: 
E876: 


69 


06 
02 
O01 
00 
00 


1542) 


736) 
311) 
174) 
105) 


KEKKEKKEKKKKKEKKKKKKKKKRKKRKKKKKEKKSK 


E878: 
E87B: 
E87D: 
E87F: 
E882: 
E884: 
E887: 
E88A: 
E88D: 
E890: 
E893: 
E895: 
E898: 
E8 9B: 
E89E: 
E8A0: 
E8A3: 
E8A6: 


01 DD 
01 

Al 

06 DD 
28 

16 OA 
06 DD 
07 DD 
17 OA 
07 DD 
11 

OF DD 
OF OA 
OD DD 
FF 

06 DD 
07 DD 
9D E6 


$DD01 
# $01 
x SAT 
SDD06 
# $28 
$0A16 
SDD06 
$DD07 
$0A17 
$DD07 
# $11 
SDDOF 
SOAOF 
SDDOD 
# SEF 
SDD06 
SDD07 
SE69D 


KKEKEKKKEKKKKKKEKKKKKKKEKKKEKEKEKKEKK 


E8A9: 
E8AC: 
E8AF: 
E8B2: 
E8B5: 
E8B7: 
E8BA: 
E8BC: 
E8BF: 
E8C2: 
E8C4: 


12 OA 
06 DD 
13 OA 
07 DD 
11 

OF DD 
12 

OF OA 
OF OA 
PF 

06 DD 


$0A12 
SDD06 
$0A13 
$DD07 
# $11 
SDDOF 
# $12 
SOAOF 
SOAOF 
# SFF 
SDD06 
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300 Baud 
600 Baud 
1200 Baud 
1800 Baud 
2400 Baud 


Input NMI routine for RS-232 


Read data port B of CIA 2 
Isolate bit for receive data 

And in Z-P RS-232 input bit flag 
Get low value of CIA 2 timer B 
And subtract 28 from it 

Add full-bit time baud rate high 
And reset timer B 

Get high value of CIA 2 timer B 
Add full-bit time baudrate high 
And reset timer B high 

Write $11 in control register of 
CIA 2 = Start timer B 

Get RS-232 NMI status in acc 
And set CIA interrupt control reg 
Initialization value for timer B 
Set timer B low to high value 
Set timer B high to high value 
Process received bit 


NMI routine for RS-232 output 


RS-232 user baud rate in acc 
Ad in timer low of CIA 2 
RS-232 user baud rate in acc 
And in timer B high of CIA 2 
Write $11 in control register of 
CIA 2 = start timer 

Invert bits 0, 1 and 4 of RS-232 
NMI flag. This value 

Back in the NMI flag 
Initialization value for timer B 
Set timer B low to high value 
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E8C7: 
E8CA: 
E8CD: 
E8CF: 


8D 07 DD 
AE 15 OA 


86 A8 


60 


STA 
LDX 
STX 
RTS 


$DD07 
$0A15 
* SA8 
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E8DO: 
E8D2: 
E8D3: 
E8D6: 
E8D7: 
E8D9: 
E8DB: 
E8DD: 
E8DF: 
E8E1: 
E8E3: 
E8E5: 
E8E7: 
E8E9: 
E8EB: 
E8ED: 
E8EF: 
E8F0: 
E8F2: 
E8F4: 
E8F6: 
E8E9: 
E8FB: 
E8FD: 
E900: 
E901: 
E903: 
E905: 
E907: 
E909: 
E9SOB: 
E90C: 
E9OE: 


A5 
48 
20 
68 
85 
BO 
AO 
Bl 
C9 
FO 
C9 
F0 


93 


F2 E9 


93 
3D 
00 
B2 
05 
34 
01 
08 
03 
04 
04 
El 


9D 
22 
63 
22 
05 
B2 
D2 


EF] 


FF 


15 
F6 
Al 
02 
91 


04 
Al 


LDA 
PHA 
JSR 
PLA 
STA 
BCS 
LDY 
LDA 


* $93 
SEQF2 
* $93 


SE918 
# $00 


($B2),¥ 


# $05 
$E917 
# S$O1 
SE8EF 
# $03 
SE8EF 
# $04 
SE8D0 


* $9D 
SE916 
# $63 
SF722 
# $05 
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Set timer B high to high value 
Number of bits to send 

In z-page: Counter RS-232 Bits 
Return from subroutine 


Read program header from tape 


Save load/verify pointer on sys 
Stack via the accumulator 
Routine:read data block tape 
Get load/verify flag from stack 
And back to zero page 

If error occurred, return 

Set displacement to tape buffer 
Get byte of read data block 
Was it and EOT marker? 

Yes, then return 


_ Header type BASIC program? 


($B2),Y 


SFFD2 


# $15 
SE8FB 
* SA1 
# $02 
x $91 


SE912 
x SA1 
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Yes, evaluate correspondingly 
Header type machine lang prg? 
Yes then evaluate appropriately 
Header type for data block? 

No, then read in 

Store header type in X-reg 
Check kernal status flag 

Ctrl messages not allowed, skip 
Displace to "FOUND" message 
Output control message 

Set displace to start of filename 
Read character from tape buffer 
Kernal BSOUT: Output a char 
Increment displace pointer by 1 
Max filename length = 16 char 
Not yet reached, continue 
Middle-value time byte in acc 
Delay loop for 8.5 seconds 
Check z-page stop / C= key flag 
Increment this value by 1 

Key pressed, then continue 
Check the 8.5 second delay loop 
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E910: 
E912: 
E914: 
E916: 
E917: 
E918: 


DO 
CO 
FO 
18 
88 
60 


F’] 
FO 
BA 


BNE 
CP Y. 
BEQ 
CLC 
DEY 
RTS 


SE909 
# SFO 
SE8D0 


KKEKKKKKKKKKKKKKKKKKEKKKKKKKKKKE 


E919: 
E91B: 
EQI1E: 
E920: 
E922: 
E923: 
E925: 
E926: 
E928: 
E929: 
E92B: 
E92C: 
E92E: 
E930: 
E932: 
E933: 
E935: 
E937: 
E939: 
E93A: 
E93C: 
E93E: 
E93F: 
E941: 
E943: 
E944: 
E946: 
E948: 
E949: 


85 
20 
90 
A5 
48 
A5 
48 
A5 
48 
A5 
48 
A0 
AY 
91 
88 
DO 
A5 
91 
C8 
A5 
91 
C8 
A5 
91 
C8 
A5 
91 
C8 
A5 


AF 


E9 


# SBF 
# $20 


($B2),¥ 


SE930 
x $9E 


($B2),Y 


* $Cl 


($B2),¥Y 


* $C2 


($B2),¥Y 


* SAE 


(SB2),Y 


* SAF 
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Time not up, continue waiting 
Was the space key pressed? 
Yes, then read header 

Set indicator for OK 

Old stop / C= key flag value 
Return from subroutine 


Write data block on tape 
Write header to tape, header type 
in acc: 3=mach. lang.,1=BASIC 


Put header type in zero page 
Get tape buffer addr.- zero page 
Address invalid, then skip 

Put start address high in acc 
And save on stack 

Put start address low in acc 
And save on stack 

Put end address high into acc 
And save on stack 

Put end address low in acc 

And save on stack 

Get tape buffer length for loop 
Load acc with char for space 
Clear tape buffer 

Loop until the entire length given 


In Y is cleared 


Get the header type 

At Ist position in tape buffer 
Displacement to tape buffer +1 
Get start add low from zero page 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get start address high from Z-P 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get end address low from Z-P 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get end address high from Z-P 
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E94B: 91 B2 STA ($B2),Y And put it in the tape buffer 
E94D: C8 INY Displacement to tape buffer + 1 
E94E: 84 OF STY * SOF Save displ. in tape buffer 

E950: AO 00 LDY # $00 Clear cntr for length of filename 
E952: 84 9B STY * S9E In zero page 

£954: A4 9F LDY * S9E Get counter for filename length 
E956: C4 B7 CPY * $B7 And compare with actual length 
E958: FO OD BEQ $E967 All letters in buffer, then skip 
E95A: 20 AE F7 JSR SF7AE Get letters from filename 

E95D: A4 OF LDY * SOF Get displ. to tape buffer 

E95F: 91 B2 STA ($B2),Y¥ Letter of the filename in buffer 
E961: E6 9E INC * $9E Counter for filename length + 1 
E963: E6 9F INC * SOF Displacement to tape buffer + 1 
E965: DO ED BNE $5954 Loop for next letter 

E967: 20 87 E9 JSR $E987 Start and address of tape buffer 
E96A: AQ 69 LDA # $69 Store check sum data and header 
E96C: 85 AB STA * SAB Block ($69) in zero page 

E96E: 20 1CEA JSR S$EAIC Write block to tape 

E971: A8 TAY Save current acc contents 

E972: 68 PLA Get end address high from stack 
E973: 85 AE STA * SAE And place in zero page again 
E975: 68 PLA Get end address low from stack 
E976: 85 AF STA * SAF And store in zero page again 
E978: 68 PLA Get start address high from stack 
E979: 85 Cl STA * $Cl And store in zero page again 
E97B: 68 PLA Get start address low from stack 
E97C: 85 C2 STA * $C2 And store in zero page again 
E97E: 98 TYA Get acc contents back 

E97F: 60 RTS Return from subroutine 
KAKKKKKKKKKKKKKKKKKEKKKKKKEKKK KK Get tape buffer address and 


check for validity 


E980: A6 B2 LDX * $B2 Start of tape buffer in X-reg 
E982: A4 B3 LDY * $B3 Start of tape buffer in Y-reg 
E984: CO 02 CPY # $02 Zero page and stack not allowed 


E986: 60 RTS Return from subroutine 
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E987: 
E98A: 
E98B: 
E98D: 
E98E: 
E990: 
E992: 
E993: 
E995: 
E997: 
E999: 


20 80 EY 


8A 
85 
18 
69 
85 
98 
85 
69 
85 
60 


Cl 


C0 
AE 


C2 
00 
AF 


SE980 


* $Cl 


# $CO0 
* SAE 


+ 


SC2 
$00 
SAF 


He 


+ 
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E99A: 
E99D: 
E99F: 
E9A1: 
E9A3: 
E9A5: 
E9A7: 
E9A9: 
EQAB: 
E9AE: 
E9BO: 
E9B2: 
E9B4: 
E9B6: 
E9B8: 
EQ9BA: 
E9BC: 
E9BD: 


20 
BO 
AO 
84 
AO 
84 
C4 
FO 
20 
A4 
D1 
DO 
K6 
E6 
A4 
DO 
18 
60 


DO E8 
1E 
05 
OF 
00 


AE F7 


JSR 
BCS 
LDY 
STY 
LDY 
STY 
CPY 


SE8D0 
SE9BD 
# $05 
* SOF 
# $00 
x SOE 
* $B7 
SE9BC 
SF7AE 
* SOF 


($B2),Y 


SE99A 
* S9E 
* SOF 
* S$9E 
SE9A7 
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Tape end addr = start addr + 192 


Get tape buffer address 

Start of tape buffer low in acc 
And in Z-P I/O start addfess low 
Clear carry for addition. 

End address=start address + 192 
New end address low in Z-P 
Start of tape buffer high in acc 
and in Z-P I/O start address high 
End addr high=start address hi + 
carry, end address high in Z-P 
Return from subroutine 


Seach tape header for name 


Search for next tape header 

IF EOT found, then return 
Displace to name in tape buffer 
Store in zero page 

Init. the counter for the length 
Of the filename in the zero page 
Compare length of target name 
If equal, continue evaluation 

Get character of target name 
Displ. to filenames in tape buffer 
Compare with target character 
Not equal, then not found 
Filename legnth counter +1 
Filename displ. to tape buffer +1 
Filename legnth counter in Y-reg 
Next character comparison 

Set indicator for OK 

Return from subroutine 
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E9BE: 
E9C1: 
E9C3: 
E9C5: 
E9C7: 


20 80 
E6 Aé 
A4 A6 
CO CO 
60 


E9 


JSR 
INC 
LDY 
CPY 
RTS 


SE980 
* SA6 
* SA6 
# $CO 
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E9C8: 
E9CB: 
E9CD: 
E9CF: 
E9D2: 
E9D5: 
E9D8: 
E9SDA: 
E9DC: 


20 DF 
FO 1A 
AO 1B 
20 22 
20 8F 
20 DF 
DO F8 
AO 6A 
4C 22 


E9 


EF] 
KA 
E9 


F'7] 


JSR 
BEQ 
LDY 
JSR 
JSR 


SEQDF 
SEQE7 
# $1B 
SF722 
SEA8F 
SEODF 
SE9D2 
# S6A 
SF722 
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E9SDF: 
E9E1: 
E9E3: 
E9ES5: 
E9E7: 
E9E8: 


AY 10 
24 O01 
DO 02 
24 01 
18 
60 


LDA 
BIT 
BNE 
BIT 
CLC 
RTS 


# $10 
* $01 
SE9E7 
* $01 
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E9E9: 
E9EC: 
E9EE: 
E9FO: 


20 DF 
FO F9 
AO 2E 
DO DD 


E9 


JSR 
BEQ 
LDY 
BNE 


SE9DF 
SE9E7 
# $2E 
SE9CF 
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Increment tape buffer pointer 


Get the tape buffer address 
Z-P cassette buffer address +1 
And compare to 

Maximum value 192 

Return from subroutine 


Wait for button on datasette 


Check if button pressed 

Button pressed, OK & continue 
Displ. to "Press Play on Tape" 
in Y. Output control message 
Test for stop-key interruption 
Check if key pressed 

No, then to delay loop 
Displacement for "OK" message 
Output control message 


Check if tape button pressed 


Set bit 4 for button test 

Check data reg. processor port 
Not pressed,then exit 

Check again 

Yes: zero flag=1, no zero flag=0 
Return from subroutine 


Wait for "record & play" keys 


Check if tape button is pressed 

Button pressed, OK & continue 
Displ. to "Press R & P on Tape" 
Button delay loop/stop key chck 
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E9F2: 


ESF 4: 
E9SF6: 
E9F8: 


AY 00 
85 90 
85 93 


20 


87 E9 


LDA 
STA 
STA 
JSR 


# $00 
* $90 
* $93 
$E987 


KKKEKEKKKEKKKKKKKEKKKKKEKKKKEKEKKKKEK 


EQFB: 
EQFE: 
EAOO: 
EAO1: 
EAO3: 
EAOS5: 
EAO7: 
EAO9: 
EAOB: 
EAOD: 
EAOF: 
EA11: 
EA13: 


20 
BO 
78 
A9 
85 
85 
85 
85 
85 
85 
AY 
A2 
DO 


C8 EQ 
1F 


00 
AA 
B4 
BO 
95 
OF 
9C 
90 
OE 
11 


JSR 
BCS 
SEI 
LDA 
STA 
STA 
STA 
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EAL5: 
EA18: 
EAIA: 


20 
A9 
85 


87 EY 
14 
AB 


JSR 
LDA 
STA 


$E987 
# $14 
* SAB 
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EAIC: 


EAILF: 


EA21: 
BA22: 
EA2 4: 
EA26: 
EAZ8 : 
EA2B: 
EA2C: 


20 
BO 
78 
A9 
A2 
A0 
8C 
88 
8C 


E9 EY 
TA 


82 
08 
00 
1A DO 


19 DO 


JSR 
BCS 
SEI 
LDA 
LDX 
LDY 
STY 
DEY 
STY 


SE9E9 
SEA9YB 


# $82 
# $08 
# $00 
SDOIA 


$D019 
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Read data block from tape 


System status with indicator 
Initialize for everything OK 
Clear Load/Verify pointer 

Get tape buffer addr/end address 


Load program from tape 


Wait for button on datasette 
STOP key pressed, return 
Disbale all system interrupts 
Init. value for IRQ storage 
Tape-read mode input byte 


‘storage. Tape temp pointer 


Cassette time constant 

Casettes error pass 1 

Cassette error pass 2 

Tape flag for byte recived 

IRQ on pin "flag" 

Number of IRQ vector (SEAEB) 
Write data block to tape 


Write tape buffer to tape 


Load tape buffer address 
Set length of the WRITE leader 
Store in zero page 


Write data block to tape 


Wait for record & play 

STOP pressed, return 

Disable all system interrupts 
IRQ on underflow of timer B 
Number of IRQ vector ($EE2E) 
Set interrupt mask register CIA 
To #0 (Interrupt disable) 
Decrement Y-reg to $FF and set 
Interrupt Request Register 
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EA2F: 
FA32: 
EA35: 


EA37: 


EA3A: 
EA3C: 
EA3F: 
EA42: 


EBEA45: 
FA46: 


EA48: 
EA4B: 


EA4C: 
EA4E: 
EAD51: 
EA54: 
EA57: 
EADA: 
EA5D: 
EA60: 
EA63: 
EA65: 
EA67: 
EAO6A: 
EA6C: 
EA6E: 
EA70: 
EA72: 
EA74: 
EA76: 
EA77: 
EA79: 
EA7TA: 


EA7C: 
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EFA7D: 
EA80: 
EA83: 


A0 
88 
DO 
CA 
DO 
58 


OD 
OE 
19 
OF 
91 
OB 
EC 
it 


10 
39 


6F 
11 
74 
14 
09 
15 
OA 
9B 
02 
BE 
5A 
01 
1F 
01 
CO 
FF 
FF 


F'D 


F8 


DC 
DC 


DC 


OA 


7 
DO 


OA 


ED 


AD 0A 0A 
CD 15 03 


18 


LDA 
CMP 
CLC 


SDCOD 
SDCOE 
# $19 
SDCOF 
# $91 
SOAOB 
SET7EC 
$D011 


# $10 
S0A39 


# S6F 
$D011 
SE574 
$0314 
SOA09 
$0315 
SOAOA 
SEE9B 
# $02 
* SBE 
SED5A 
x $01 
# S1F 
$01 
$c0 
SFF 
SFF 


He He OF OF 


SEA76 


SEA74 


SOAOA 
$0315 


Reset IRQ mask 

Load CIA control reg A, timer B 
"One shot" and start 

Control reg.B, IRQ on timer B 
Set time compare pointer for tape 
Operations 

Wait for end of R-232 transfer 
Copy VIC control reg. into acc 
And into Y-reg 

Set bit 4, screen on 

Store value in VDC temp storage 
Old value back into acc 

Clear bit 8 of raster comparison 
And turn the screen off 

Clock to 1 MHz and sprites off 
IRQ vector low address in IRQ 
Temp storage for tape operations 
IRQ vector high address in IRQ 
Temp storage for tape operations 
Reset IRQ vector for tape operat. 
Number of data blocks to reaed 
Store in zero page 

Initialize bit counter, serial I/O 
Turn cass. motor on by setting 
4th bit of the processor port data 
Register 

Set pointer for tape motor 
Counter for delay loop high 
Counter for delay loop low 

X and Y regs are decremented 
From 65535 to 0 to create the 
Necessary delay 

For tape operations 

Enable interrupt for tape I/O 


Wait for tape I/O end 
Compare with tape IRQ vector 


with normal IRQ pointer high 
Set indicator for OK 
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EA8 4: 
EA86: 
EA89: 
EA8C: 


FO 15 

20 8F EA 
20 3D F6 
4C ]D EA 


BEQ 
JSR 
JSR 
JMP 


SEAQB 
SEA8F 
SF 63D 
SEA7D 
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EA8F: 
EA92: 
EA93: 
EAQ95: 
EAQ98 : 
EA99: 
EAQA: 
EAQB: 
EAQD: 
EAAO: 


20 
18 
DO 
20 
38 
68 
68 
AY 
8D 
60 


Bl FF 


OB 


57 EE 


00 
OA OA 


JSR 
CLC 
BNE 
JSR 
SEC 
PLA 
PLA 
LDA 
STA 
RTS 


SFFE1 


SEAAO 
SEE57 


# $00 
SOAOA 
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EAAI1: 
EAA3: 
EAADS: 
EAA6: 
EAA7 : 
EAAB : 
BEAAA: 
EAAB: 
EAAD : 
EAAF : 
EAB1: 
EAB3: 
EABS: 
EAB6: 
EAB8 : 
EAB9: 
EABB: 
EABC: 
EABD : 
EACO: 


86 


Bl 


A5 BO 


OA 
OA 
18 
65 
18 
65 
85 
A9 
24 
30 
2A 
06 
2A 


BO 


Bl 
Bl 
00 
BO 
O01 


Bl 


Bl 


06 DC 
16 


* SB1 
* $BO 
A 
A 
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IRQ vectors equal, then done 
Check if STOP key pressed 
If pressed, set flag 

Continue to wait for end 


Test for STOP key 


Kernal STOP: Test for stop key 
Set indicator for everything OK 
STOP not pressed, RTS exit 
Motor off, set normal IRQ 

Set carry for error 

Get return address form stack 
And clear 

Load code for "interrupt’ in acc 
And set indicator for normal IRQ 
Return from subroutine 


Prepare cassette synchronization 


Store X-reg contents in Z-P 
Timing constant for tape in acc 
The timing constant is multiplied 
By the factor 4 

Clear carry for addition 

Add timing constant (corres. *5) 
Clear carry for addition 

Add old X-reg contents & place 
This value in the zero page 
Load low value for timer A 
Check if timing constant >128 
Yes, then skip alignment 

The inti value for timer A is 
Multiplied by 4 by rotating the 
Contents of the acc in connection 
With shifting of tape timing 
constant 

Store high of timer value in X 
Low value CIA 1 timer B in acc 
Change timer B high to 63755 
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29 
FO 
A9 
48 
AQ 
48 
4c 
58 
60 


C8 EE 
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EAEB : 
EAEE : 
EAF 0: 
EAF 1: 
EAF 4; 
EAF7 : 
EAF'9: 
EAFB: 
EAF'C : 
EAFF : 
EBO2: 
EBO4: 
EBO7: 
EBOA: 
EBOD: 
EBOE: 
EB10: 
EB12: 


AE 
AO 
98 
ED 


07 DC 
FF 


06 DC 
07 DC 
F2 
Bl 


06 DC 
07 DC 
19 

OF DC 
OD DC 
OC OA 


Bl 
Bl 


LDX 
LDY 
TYA 
SBC 
CPX 
BNE 
STX 
TAX 


$DC07 
# SEF 


SDC06 
$DC07 
SEAEB 
* SB1 


SDC06 
$DC07 
# $19 
SDCOF 
SDCOD 
SOAOC 


* $B1l 
* SB1 
A 
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Yes, then loop to timer read 
Add low for initialization 

And set in timer A low 

Add high value of the init in acc 
With carry to timer B high 

And set in timer A high 

Copy init. value from tape time 
Constant to start timer A 

Reset timer A flag 

Interrupt Control Register in acc 
Check negative edge on FLAG 
No, wait for negative edge 
Place the contents of zero page 
Locations $EA and $E9 on the 
Sys stack as quasi return address 


Simulate the interrupt call 
Enable all system interrupts 
Return from subroutine 


Interrupt routine for tape read 


CIA 1 timer B hi in X-reg 

Init Y-reg with with high value 
And for subtraction in acc 
Subtract timer B low of #255 

Is timer B high decremented? 
Yes, back to time comparison 
Place timer B high in zero page 
Time low since last signal in X 
Timer B low to high value 
Timer B high to high value 

Set timer B mode 

And start timer B 

Interrupt Control Register in acc 
And in systetm storage for tape 
Initialize acc with #255 

Subtract timer B high from #255 
Store elapsed time in zero page 
The value stored in the acc 
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EB13: 
EB15: 
EB16: 
EB18: 
EBIA: 
EBI1B: 
EBI1D: 
EBIF: 
EB21: 
EB23: 
EB25: 
EB28: 
EB2A: 
EB2C: 
EB2E: 
EB30: 
EB32: 
EB34: 
EB36: 
EB37: 
EB39: 
EB3B: 
EB3D: 
EB3F: 
EB41: 
EB43: 
EB45: 
EB47: 
EB4A: 
EB4C: 
EB4E: 
EB50: 
EB52: 
EB54: 
EB56: 
EB58: 
EB59: 
EBSB: 
EBSD: 
EBSE: 


66 
4A 
66 
A5 
18 
69 
C5 
BO 
Ao 
FO 
AC 
A6 
30 
A2 
69 
65 
C5 
BO 
E8 
69 
65 
C5 
BO 
69 
65 
C5 
90 
AC 
A5 
FO 
85 
DO 
E6 
BO 
C6 
38 
E9 
ES 
65 
85 


Bl 


BL 
BO 


3¢ 
Bl 
4A 
9C 
03 
1F 
A3 
1B 
00 
30 
BO 
Bl 
1c 


26 
BO 
Bl 
17 
2C 
BO 
Bl 
03 
CF 
B4 
1D 
A8 
19 
AQ 
02 
AQ 


13 
Bl 
92 
92 


EC 


EB 
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For the elapsed time 

Is divided by the 

Factor 4 

Get timing constant from z-page 
Clear carry for addition 

Add #60 to timing constant 

> time since last signal? 

Yes, then no information, skip 
Was a byte received 

No, then skip 

Continue byte-receive routine 
Was byte read entirely? 

Yes, then evaluate 

Code for short pulse X-reg (0) 
Set acc for pulse read 

And add timing constant 

Short time pulse received? 

Yes, then skip long pulse 

Code for long pule in X-reg (1) 
Set acc for pulse read 

And add timing constant 

Long time pulse received? 

Yes, skip other pulse duration 
Check if the previous time 
Pulse was stil longer. If so, 

It is a byte header pulse 

No, then skip processing 
Process received byte 

Check if timer A is enables 

No, then skip 

Set pointer for "READ ERROR" 
Jump to timer interrupt read 
Pntr for pulse-length change +1 
Skip change decrement | 
Pntr for pulse length change -1 
Set carry for subtraction 

From read value #19, as well as 
Subtract elapsed time 

Add zero page storage for timing 
Correction flag and store 
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EB6é1: 
EB63: 
EB65: 
EB67: 
EB69: 
EB6B: 
EB6D: 
EB6F: 
EB72: 
EB74: 
EB76: 
EB79: 
EB7B: 
EB7D: 
EB7F: 
EB82: 
EB84: 
EB86: 
EB88: 
EB8A: 
EB8D: 
EB8F: 
EB91: 
EB94: 
EB96: 
EB98: 
EB9A: 
EBSC: 
EBSD: 
EB9F: 
EBAI: 
EBA3: 
EBAD: 
EBA? : 
EBA8 : 
EBAA: 
EBAC: 
EBAE: 
EBBO : 
EBB2: 


A4 
01 
A4 
2B 
C5 
B4 
22 
0C 
O01 
05 
OD 
16 
00 
A4 
OD 
A3 
30 
BF 
Aé 
Al 
9B 
B9 
33 
92 
07 
03 
BO 


BO 
00 
92 
C5 
OF 


AO 
AY 
BD 
10 
B9 
96 


OA 


OA 


OA 


KA 


FF 


LDA * SA4 
EOR # $01 
STA * SAA 
BEQ SEB94 
STX * $C5 
LDA * SB4 
BEQ SEB91 
LDA S$0OAO0C 
AND # $01 
BNE SEB7B 
LDA S0OAOD 
BNE SEB91 
LDA # $00 
STA * SAA4 
STA SOAOD 
LDA * SA3 
BPL SEBB6 
BMI SEB47 
LDX # SA6 
JSR SEAAI1 
LDA * $9B 
BNE SEB4A 
JMP $FF33 
LDA * $92 
BEQ SEBOSF 
BMI SEB9D 
DEC * SBO 
-Byte $2C 
INC * SDO 
LDA # $00 
STA * $92 
CPX * $C5 
BNE SEBB6 
TXA 

BNE SEB4A 
LDA * SAQ 
BMI SEB6B 
CMP # $10 
BCC SEB6B 
STA * $96 
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Invert the zero page flag for the 
Reception of both pulses 

And store in zero page again 
Both pulses received, then skip 
Store signal received in z-page 
Check if timer A is enabled 
No, then terminate interrupt 
Get contents of ICR in acc 
Was it a timer A interrupt 

Yes, then skip 

Check if timer A is run down 
No, then terminate interrupt 
Clear the zero-page flag for 
Pulse count (low value) 

Set pointer for timer A timeout 
Check is byte is completely read 
No, then skip 

Yes, process correspondingly 
Initialization value for timer A 
Prepare tape for reading 
Zero-page parity byte in acc 
Not zero, then parity error 
Back to kernal interrupt 
Timing correction pointer in acc 
Flag cleared, then skip 

Smaller then zero, skip dec 
Z-page timing constant -1 

Skip to $EB9F 

Z-page timing constant +1 
Z-page pointer timing constant 
Erase correction (low value) 
Compare pulse received with 
previous Not equal, OK & skip 
Check if short pulse received 
No, then read error. Skip 
Pulse length change pntr in acc 
Negative value, then skip 

16 short pulses received? 

No, then for negative value 
Yes, EOB flag received 
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EBB4: 
EBB6: 
EBB7: 
EBB9: 
EBBB: 
EBBD : 
EBBF : 
EBC1: 
EBC3: 
EBC5: 
EBC7 : 
EBC9: 
EBCC : 
EBCF : 
EBD1: 
EBD3: 
EBDS5: 
EBD?7: 
EBD9: 
EBDB: 
EBDE: 
EBEO: 
EBE2: 
EBE3: 
EBES: 
EBE7: 
EBES8: 
EBE9: 
EBEC: 
EBEE: 
EBF 0 : 
EBF 2: 
EBF 4: 
EBF 6: 
EBF8: 
EBFA: 
EBFC: 
EBFE: 
ECOL: 
ECO03: 


BO B5 


45 9B 
85 9B 
B4 
D2 
A3 
30 C5 
46 C5 
66 BF 
DA 
20 Al 
4C 33 
A5 96 
FO 04 
B4 
FO 07 
A3 
30 03 
AC 56 
46 Bl 
AY 93 


Bl 
65 BO 


20 Al 
9C 
B4 
DO 11 
AS 96 
26 
85 A8 
AY 00 
85 96 
AY 81 
8D OD 
85 B4 
A5 96 


EA 


FF 


EB 


KA 


DC 


335 


Unconditional jump 

Put received bit in acc 

Compare witb tape parity 

Store in tape parity again 

Check if timer A is enabled 

No, then end interrupt 
Zero-page storage for bit cntr -1 
Parity bit received? Yes, skip 
No, then bit read into 
Zero-page storage for tape data 
Initialization value for timer A 
Prepare cassette synchronization 
Back to IRQ routine 

Check if EOB received 

No, skip timer read 

Check if timer A enabled 

No, skip bit counter test 

Check if Z-P bit cntr is negative 
Yes, wait for byte header 
Process long pulse,no header 
byte. Halve the elapsed time 
since the last negativce edge and 
Subtract this value 

From the constant #147 

Add zero-page timing constant 
And double this value 

To X-reg, init value for timer A 
Prepare cassette synchronization 
Set Z-P pointer:"byte received’ 
Check if timer A enabled 

Yes, then skip 

Check if EOB received 

No, to normal IRQ routine 

Set z-page display for read error 
Clear z-page storage for EOB 
marker. (low value) 

Code value for timer A enable 
Enable interrupt for timer A 

Set z-page flag, timer A possible 
Copy z-page for received EOB 
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ECO5: 
ECO7: 
ECO9: 
ECOB: 
ECOD: 
ECOF: 
EC12: 
EC14: 
EC16: 
EC18: 
ECI1A: 
EC1C: 
ECI1F: 
EC22: 
EC24: 
EC26: 
EC29: 
ECZB: 
EC2D: 
EC2F: 
EC31: 
EC33: 
EC35: 
EC37: 
EC39: 
EC3B: 
EC3C: 
EC3E: 
EC40: 
EC43: 
EC45: 
EC47: 
EC49: 
EC4C: 
EC4E: 
EC50: 
EC52: 
EC54: 
EC56: 
EC58: 


Al 


DC 


FF 
ED 


EKA 


F7 


FFE 
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In flag for valid EOB 

No EOB marker, then skip 
Control code for timer A disable 
Put in appropriate z-page pointer 
Control code, disabling timer A 
Interrupts in CIA control register 
Z-page shift register, READ in 
Z-page storage for read byte 
Combine Z-P pointer for read 
error with pulse change pointer 
Place in error code of byte 

Back to normal IRQ call 

Set bit counter for serial output 
Pointer: reset "byte received" 
Initialization value for timer A 
Prepare cassette synchronization 
Check if number of remaining 
blocks is zero. If so, skip 

Reset number of blocks to read 
Mask value for count before read 
Test pointer, reading from tape 
If all characters received, end 
Test if valid EOB received 

Yes, then skip 

Is the number of blocks 
remaining to be read = 1? 

No, to normal IRQ call 

Set bit 3 in A for “long block" 
Reset system status pointer 
Uncond. jump normal IRQ rout 
Z-P pointer, "reading from tape" 
Set to "scan" (low value) 

Back to normal IRQ routine 
Skip for tape read pointer "read" 
Skip for tape read pointer" count" 
Check if EOB received 

Yes, back to normal IRQ routine 
Test if byte-read error occurred 
Yes, back to normal IRQ routine 
Get number of blocks to read yet 
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ECSA: 
EC5B: 
EC5D: 
ECSF: 
EC61: 
EC62: 
EC64: 
EC66: 
EC68: 
EC6A: 
EC6C: 
EC6E: 
EC70: 
EC73: 
EC75: 
EC77: 
EC79: 
EC7B: 
EC7D: 
EC7F: 
EC81: 
EC83: 
EC85: 
EC88: 
EC8A: 
EC8D: 
EC90: 
EC92: 
EC95: 
EC97: 
EC98: 
EC9A: 
EC9C: 
EC9E: 
ECAO: 
ECA3: 
ECA5: 
ECA7: 
ECA9: 
ECAB: 


4A 
A5 
30 
90 
18 
BO 
29 
85 
C6 
DO 
AY 
85 
20 
A9 
85 
F0 
AY 
85 
DO 
A5 
FO 
AY 
20 
AY 
4c 
20 
90 
4c 
A6 
CA 
FO 
A5 
FO 
AO 
20 
C5 
FO 
AY 
85 
A5 


ED 


F7 


ED 
EE 


ED 


EF] 
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And shift bit 0 into carry flag 
Get read byte from zero page 

If it is a count byte, then skip 
More than one block read, skip 
Reset carry flag pointer 

Skip if only one block read 
Mask out upper nibble (bits 4-7) 
Store as count value, counter -1 
And check if all syne bytes 
received .No, to normal IRQ 
Setbit 6 in the acc and the z-page 
Tape read pointer to: "read" 
Copy input/output start address 
Clear zero page pointer for read 
Checksum (set to low value) 
Back to normal IRQ routine 

Set bit 7 in acc and the zero page 
Tape read pointer to: "end" 
Back to normal IRQ routine 
Check if EOB marker set 

No, then skip 

Set bit 2 in A for short block 
Reset system status pointer 
Code for read pointer to "scan" 
Set and jump absolute 

Check if end reached 

No, then continue as normal 
To read end for a block 

Is the number of blocks left to 
Read = 1? 

Yes, pass 2 (correction pass) 
Test if verify marker set 

No, then skip 

Set displacment comparison, #0 
Fetch routine for LSV calls 
Compare with byte read 

Both equal, then OK and skip 
Code for character read error 

In zero page tape temp pointer 
Test tape temp pointer for error 


Abacus Software 


C-128 Internals 





ECAD: 
ECAF : 
ECB1: 
ECB3: 
ECB5: 
ECB7: 
ECB9: 
ECBC: 
ECBE: 
ECC1: 
ECC2: 
ECC3: 
ECCS: 
ECC8: 
ECCA: 
ECCC: 
ECCE: 
ECDO: 
ECD3: 
ECD5: 
ECD7: 
ECDA: 
ECDC: 
ECDE: 
ECEO: 
ECE2: 
ECE4: 
ECE6: 
ECE9: 
ECEB: 
ECED: 
ECEE: 
ECFO: 
ECF2: 
ECF 4: 
ECF 6: 
ECF 9: 
ECFB: 
ECFD: 
ECFF: 


FO 
A2 
B4 
90 
Ao 
A5 
9D 
A5 
9D 
E8 
E8 
86 
4C 
A6 
E4 
FO 
AD5 
DD 
DO 
A5 
DD 
DO 
E6 
E6 
A5 
FO 
A0 
20 
C5 
FO 
C8 
84 
A5 
FO 
AY 
20 
DO 
A5 
DO 
A8& 


O01 


O01 


EC 


O01 


01 


F’] 


EF] 


SECFB 
# $3D 
* SOE 
SECF4 
x S9E 
* SAD 


$0101,X 


* SAC 


$0100,X 


* SOE 
SECFB 
* SOF 
* SOE 
SEDO5 
* SAC 


$0100,X 


SEDO5 
* SAD 


$0101,X 


$EDO5 
* SOF 
* SOF 
* $93 
SECF0 
# $00 
SE7CC 
* SBD 
$EDO5 


x SB6 
* SB6 
SECFB 
# $10 
SF757 
SEDO5 
* $93 
SEDO5 
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No error occurred, then skip 
Check if 31 errors encountered 
While reading 

Yes, then not correctable 

Displ. for add read error in stack 
Get address byte of error low 
And store error address on stack 
Get address byte of error high 
And store error address on stack. 
Increment error addr-displ. ptr + 
Error number-counter by 2 

And place in error counter 
Continue as if no error occurred 
Check if all read errors 
Corrected 

Yes, then continue 

Get current addr. byte low value 
Compare w/ error addr byte low 
Not equal, then skip 

Get current addr byte high value 
Compare with address byte high 
Not equal, then skip | 
Increment the z-page correction 
counter for pass 2 by 2 

Check if verify marker set 

No, then set 
Displacement for fetch routine 
Fetch routien for LSV calls 
Read byte equal memory byte? 
Yes, then skip 

Incremern displacement pointer 
And put in z-page error pointer 
Check if error occurred 

No, then skip 

Set bit 4 -read error not corrected 
Reset system status pointer 
Unconditional jump 

Check if verify marker set 

Yes, then skip 

Set displacement pointer to #0 
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EDOO: 
EDO2: 
EDOS5: 
EDO8: 
EDOA: 
EDOC: 
EDOE: 
EDOF: 
ED11: 
ED14: 
ED17: 
ED19: 
EDIA: 
EDIC: 
EDIE: 
ED20: 
ED22: 
ED24: 
ED26: 
ED28: 
ED2A: 
ED2D: 
ED30: 
ED32: 
ED34: 
ED37: 
ED39: 
ED3B: 
ED3E: 
ED41: 
ED43: 
ED45: 
ED47: 
ED49: 
ED4B: 
ED4E: 


EF] 
EE 


DC 
DC 


EE 
ED 


EF] 


EE 
EE 


EF] 
FF 


* SBD 
SF7BC 
SEEC1 
SED 4E 
# $80 
* SAA 


# $01 
SDCOD 
SDCOD 
* SBE 


SED1E 
x SBE 


* SAT 


SED2A 
* S$9E 
SED4E 
* SBE 
SED4E 
SEE57 
SED51 
# $00 
* SAB 
SF7CC 
* SAB 
* SAB 
SEEC1 
SEEB7 
SED34 
* SAB 
* SBD 
SED4E 
# $20 
SF757 
SFF33 
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Get byte into acc 

STASH rout. for LSV routines 
Incr input/output start address 
Back to normal IRQ routine 
Code for read pointer to "end" 
Set tape read pntr according, acc 
Disable all system interrupts 
Code, value for int. of timer A 
Disable in ICR 

Reset interrupt pointer 

Test if number of blocks 
remaining to process is zero 
Yes, then skip 

Store new number in zero page 
Decrement z-page block counter 
Block counter = O, then skip 
Check if error encountered in 
pass 1. Yes, then skip 
Number of blocks to process: 0 
Back to normal IRQ routine 
Routine: end tape I/O 

Copy start addr in load pointer 
Clear the z-page ptr for chksum 
Set displacement to zero 
FETCH routine for LSV operat. 
Combine memory byte with 
chksum & store in chksum pntr 
Increment input/output start addr 
Check if end address reached 
Not end address, then continue 
Compare the generate checksum 
With the checksum read 

Equal, then OK and continue 
Set bit 5 (checksum error) 
Reset system status pointer 
Back to normal IRQ routine 
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ED51: 
ED53: 
ED55: 
ED57: 
ED59: 


A5 C2 
85 AD 
AS Cl 
85 AC 
60 


LDA 
STA 
LDA 
STA 
RTS 


$C2 
SAD 
$cl 
SAC 


+ + + + 


KKEKEKKKKKKEKKKEKKEKKKEKKKKKKKKKKKEKE 


EDDA: 
ED5C: 
ED5E: 
ED60: 
ED62: 
ED64: 
ED66: 
ED68: 


AQ 08 
85 A3 
AY 00 
85 A4 
85 A8 
85 9B 
85 AY 
60 


LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
RTS 


$08 
SA3 
$00 
SA4 
SA8 
$9B 
SA9 


+ oF oF oF tk OF oe 
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ED69: 
ED6B: 
ED6C: 
ED6E: 
ED70: 
ED72: 
ED74: 
ED77: 
ED7A: 
ED7D: 
ED7F: 
ED82: 
ED8 4: 
ED86: 
ED88: 
ED8A: 


A5 BD 
4A 

AY 60 
90 02 
A9 BO 
A2 00 
8D 06 
8E 07 
AD OD 
A9 19 
8D OF 
A5 O01 
49 08 
85 01 
29 08 


DC 
DC 
DC 


DC 


* SBD 
A 

# $60 
SED72 
# $BO 
# $00 
SDC06 
SDCO7 
SDCOD 
# $19 
SDCOF 
* $Ol 
# $08 


* $01 


# $08 


340 


C-128 Internals 


Copy input/output start address 


Get input/output 

Store high value in z-page $AD 
Get input/output start addr low 

Store low value in z-page $AC 

Return from subroutine 


Set bit counter for serial output 


Counter for 8 bits to transfer 
Initialize in zero page 

Set the high byte of the 2 byte 
Zero page counter to $00 
Clear tape read error flag 
Initialize parity for tape 
Initialize tape zero read flag 
Return from subroutine 


Write a bit to tape 


Bit to output from z-page to acc 
And bit to output (0) in carry 
Set time for "0-bit" 

Set timer and output 

Set time for "1-bit" 

Low value for timer high byte 
CIA1 timer B low byte -bit time 
CIA1 timer B hi-byte low value 
Clear interrupt flag 

Load timer B, "one shot" & start 
CIA control reg. IRQ at timer 
Inverse value for output bit 
Invert in processor port and 
Put back in processor port 
Save current signal 

Return from subroutine 
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ED8B: 
ED8C: 
ED8E: 


38 
66 
30 


Bo 
3c 


SEC 
ROR 
BMI 


* SB6 
SEDCC 


KKEKEKKKKKKKKEKKKKKEKKKREKKKKKKKEKEKR 


ED90: 
ED92: 
ED94:; 
ED96: 
ED98: 
ED9B: 
ED9D: 
ED9SF: 
EDA1: 
EDA3: 
EDA6: 
EDA8 : 
EDAA: 
EDAD: 
EDAF : 
EDB1: 
EDB3: 
EDB6: 
EDB8 : 
EDBA: 
EDBC: 
EDBE: 
EDCO: 
EDC2: 
EDC4: 
EDC6: 
EDC8: 
EDCA: 
EDCC: 
EDCEF: 
EDD1: 
EDD3: 


A5 
DO 
AY 
A2 
20 
DO 
E6 
A5 
10 
4c 
A5 
DO 
20 
DO 
E6 
DO 
20 
DO 
AS 
49 
85 
F0 
A5 
49 
85 
29 
45 
85 
4c 
46 
C6 
A5 


A8 
12 
10 
O01 
74 
2F 
A8 
Bé 
29 
1B 
A9 
09 
70 
1D 
AQ 
19 
69 
14 
A4 
O01 
A4 
OF 
BD 
01 
BD 
O01 
9B 
9B 
33 
BD 
A3 
A3 


ED 


EE 


ED 


ED 


FF 


LDA 
BNE 
LDA 
LDX 


xk SA8 
SEDA6 
# $10 
# $01 
SED74 
SEDCC 
x SA8 
* SB6 
SEDCC 
SEE1B 
x SA9 
SEDB3 
SED70 
SEDCC 
* SA9 
SEDCC 
SED69 
SEDCC 
* SA4 
# SO1 
* SA4 
SEDCF 
* SBD 
# $01 
* SBD 
# $01 
* $9B 
* $9B 
SFF33 
* SBD 
* SA3 
* SA3 
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Set pointer for block written 


Set carry for rotation 
Negate block written flag 
Interrupt return | 


Interrupt routine for tape write 


Check if byte pulse written 

Yes then skip byte pulse write 
Low value for byte freq in acc 
High value for byte freq in X 
Write "byte" pulse to tape 

If first half wave, to normal IRQ 
Set pointer for pulse written 
Test "block written" pointer 
Yes, then back to normal IRQ 
Block finished, continue write 
Check if longer pulse written 
Yes, then skip long pulse 
Write long pulse to tape 

If first half wave, to normal IRQ 
Set pointer for pulse written 
Back to normal IRQ routine 
Write one bit to tape 

If first half wave, to normal IRQ 
Invert the zero-page bit pulse 
Pointer and 

Save it again 

If #0, write both pulses 

Invert bit 0 of the zero-page bit 
Shift storage 

And save again 
Eliminate current bit & combine 
With parity bit of the byte 

And store in parity flag 

Back to normal IRQ routine 
Shift bit out and decrement the 
Zero-page bit counter by 1 

Is end reached already? 
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EDD5: 
EDD? : 
EDD9: 
EDDC: 
EDDD : 
EDDF : 
EDE1: 
EDE3: 
EDE5: 
EDE7: 
EDE9: 
EDEB: 
EDED : 
EDEF : 
EDF 1: 
EDF3: 
EDF'6: 
EDF8: 
EDFA: 
EDFC: 
EDFE: 
EEOO: 
EEOQ2: 
EEO4: 
EEO7: 
EEO9: 
EEOB: 
EEOD: 
EE10: 
EE12: 
EE14: 
EE16: 
EE18: 
EE1B: 
EEI1D: 
EEF: 
EE22: 
EE24: 
EE2Z6: 
EE28: 


Cl 


ED 


KE 


F’] 


EE 


FF 


EE 


SEE12 
SEDCC 
SED5A 


* SA5 
SEDF3 
$00 
$C5 
SAS 
SBE 
$02 
SEDEF 
# $80 
x SBD 
SEDCC 
SEEB7 
SEE02 
SED8B 
* SAD 
* $C5 
x SBD 
SEDCC 
# $00 
SF7CC 
* SBD 
* $C5 
* $C5 
SEEC1 
SEDCC 
* $9B 
# $01 
* SBD 
SFF33 
* SBE 
SEE22 
SEEBO 
# $50 
* SA7 
# $08 


+: 


He OF OOF 
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Yes, then generate parity. Skip 
No, then back to normal IRQ 
Set bit counter for serial output 
Enable all system interrupts 
Check if sync bytes written 
Yes, then skip 

Clear the checksum storage for 
the read buffer (low value) 
Decremernt sync counter by 1 
Check if the first block 

Is already written 

No, then skip 

Set bit 7 in sync byte 

And in zero page bit shift storage 
Back to normal IRQ routine 
Check if end address reached 
Not reached, continue write 

Set "block written" pointer 
Current address byte +1 

Get buffer checksum from Z-P 
Store value in bit shift storage 
Back to normal IRQ routine 

Set displacement pointer to #0 
FETCH routine for LSV operat. 
Bring char in bit shift storage 
Combine with checksum storage 
And store again 

Incr input/output start address 
Back to normal IRQ routine 
Invert parity bit of byte from 
Z-P and copy into the bit-shift 
Storage 

Back to the normal IRQ routine 
Check if all bits written 

No, then skip 

Turn recorder motor off 
Initialize zero-page counter for 
The "shorts" 

Displacement for IRQ #1 (write) 
Disable all system interrupts 
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EE29: 
EE2ZC: 


20 9B EE 


DO 


FA 


JSR 
BNE 


SEE9B 
SEE18 


KEKKKKKKKEKKKEKKEKKKKKKKKKKKKKKKK 


EE2E: 
EE30: 
EE33: 
EE35: 
EE37: 
EE39: 
EE3C: 
EE3E: 
EE 40: 
EE 42: 
EE45: 
BE46: 
EE48: 
EE4A: 
EE4C: 
EE4F: 
EE51: 
BE53: 


EE55: 


AY 
20 
DO 
C6 
DO 
20 
C6 
10 
A2 
20 
58 
E6 
A5 
FO 
20 
A2 
86 
86 
DO 


718 
72 
E3 
A7 


ED 


EE 


ED 


LDA 
JSR 
BNE 
DEC 
BNE 
JSR 
DEC 
BPL 
LDX 
JSR 
CLI 
INC 
LDA 
BEQ 
JSR 
LDX 
STX 
STX 
BNE 


# $78 
SED72 
SEE18 
* SAT 
SEE18 
SED5A 
x SAB 
SEE18 
# SOA 
SEE9B 


x SAB 
* SBE 
SEE95 
SED51 
# $09 
* SAS 
* SBE 
SEDD9 


KKEKEKEKKKEKKKKKKKKKKKKKKKKKKKKEKK 


EE57: 
EE58: 


EE59: 


EE5C: 
EESF: 
EE61: 
EE64: 
EE67: 
BKE69: 
EE6C: 
EE6E: 
EE71: 
EE74: 


08 
78 
AD 
OD 
29 
8D 


11 
39 
7F 
1d 
3A 
16 
| 
11 
38 
15 
37 


DO 
OA 


DO 
OA 


OA 


OA 


DO 
OA 


$D011 
$0A39 
# STF 
$D011 
SOA3A 
SEE7F 
$0A37 
SEE7F 
$0A38 
$D015 
$0A37 
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Set the IRQ vectors 
Back to the normal IRQ routine 


Write the header (IRQ #1) 


Code for "header pulse" in acc 
And write header pulse 

If first half wave, to normal IRQ 
Decrement header counter by 1 
No end, to normal IRQ routine 
Set bit counter for serial output 
Dur. of short before & after data 
No end, to normal IRQ routine 
Displacement for IRQ #2 (write) 
Set the IRQ vector 

Enable all system interrupts 
Decrement duration of shorts 
Check if all blocks written 

Yes, then skip 

Copy input/output end address 
Reset the zero-page counter for 
the Sync with #9 and reset the 
"block written" pointer 
Unconditional jump 


End recorder operation 


Save processor status on stack 
Disable all system interrupts 
Contents of VIC control reg in A 
Combine with VDC temp pointer 
Turn screen off 

And write value in VIC reg 
Check IRQ storage 

Bit 7 set, then skip 

Check clock frequency storage 
Bit 7 cleared, then no update 
Get status for sprites 

And set sprite display register 
Get saved clock frequency and 
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EE77: 
EB7A: 
EE7C: 
EE7E: 
EE82: 
EE85: 
EE88: 
EE8A: 
EE8D: 
EE9O: 
EE93: 
EE94: 


8D 30 
AY 00 
8D 37 
20 BO 
20 B8 
OA 
FO 09 
8D 15 
AD 09 
8D 14 
28 

60 


DO 


OA 


EE 
El 
OA 


03 
OA 
03 


STA 


LDA 
STA 
JSR 
JSR 
LDA 
BEQ 
STA 
LDA 
STA 
PLP 
RTS 


$D030 
# $00 
$0A37 
SEEBO 
SE1B8 
SOAOA 
SEE93 
$0315 
SOA09 
$0314 
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Set system back to old value 
Clear storage for 

System clock frequency 

Turn cassette motor off 

Set timing and CIAs to standard 
Is interrupt vector to standard? 
Yes, then exit 

Sys IRQ vector high to standard 
Get IRQ address low 

Sys IRQ vector low to standard 
Get processor status back 
Return from subroutine 


KKKKKKKEKKKKEKKKKEKK KKK KK KKK KK KA Terminate tape operation 


EE95: 
EE98: 


20 57 EE 
4C 33 FF 


JSR $EE57 
JMP SFF33 


End recorder operation 
Back to normal IRQ routine 
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Set the IRQ vector 


EE9B: 
EB9E: 
EEA1: 
EEA4: 
EEA? : 


KKEKKKKKKEKKEKEKKKKKKKKEKKRKKKKKKKKK 


EEA8 : 
EEAA: 
EEAC: 
EEAE : 


BD AO EE 


8D 14 


03 


BD Al EE 


8D 15 
60 


ZE EE 
90 ED 
65 FA 
EB EA 


03 


LDA 
STA 
LDA 
STA 
RTS 


SEEAO, X 


$0314 


SEEA1,X 


$0315 


(SEE2E) 
(SED90) 
(SFA65) 
(SEAEB) 


KKKKKKKKEKKEKKEKKEKKEKKKKEKKKKKKKKKK 


EEBO: 
EEB2: 
EEB4: 
EEB6: 


A5 01 
09 20 
85 Ol 
60 


LDA 
ORA 
STA 
RTS 


x $01 
# $20 
x S01 
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X-indexed IRQ lo-addr f/ table 
Copy into sys IRQ vector low 
X-indexed IRQ high addr f/ table 
Copy into sys IRQ vector high 
Return from subroutine 


Table of IRQ vectors 


IRQ #1: Write to tape (header) 
IRQ #2: Write to tape (buffer) 
Normal IRQ for keyboard read 
IRQ for reading from tape 


Tum recorder motor off 


Status of processor port data reg 
In acc, set bit 5 and 

Turn the recorder motor off 
Return from subroutine 
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KHKKKKKKKKKKKKKKKKEKKKKKKKKKKKKE Check if end address reached 
If end address > start addr. C=0 


EEB7: 38 SEC Set carry for subtraction 
EEB8: A5 AC LDA * SAC Low of I/O start address in acc 
EEBA: E5 AE SBC * SAE Subtract low of I/O end address 
EEBC: A5 AD LDA * SAD High of I/O start address in acc 
EEBE: E5 AF SBC * SAF Subtract high of I/O end address 
EECO: 60 RTS Return from subroutine 
KKKKKKKKKKEKKKKKKKKKKKKKEKKKKKKE Incr. input/output start address 
EEC]: E6 AC INC * SAC Low value of I/O start addr.+ 1 
EEC3: DO 02 BNE SEEC7 No overflow in low value, exit 
EEC5: E6 AD INC * SAD High value of I/O address + 1 
EEC7: 60 RTS Return from subroutine 
KAKKKKKKKKKKKKKKKKKKKKEKKKKKKEKE Clear break flag in processor 
Status 
EEC8: 08 PHP Put processor status on stack © 
EEC9: 68 PLA And copy back into acc 
EECA: 29 EF AND # SEF Clear break flag 
EECC: 48 PHA And put status back on stack 
EECD: 4C 17 FF JUMP SFF17 ~~ Jump tokemal IRQ routine 


KAKKKKKKKKKKKKKKKKKKKKKKKKKK KKK Check cassette recorder keys 


(IRQ) 
EEDO: A5 01 LDA * $01 Get processor port data register 
EED2: 29 10 AND # $10 And test if key pressed 
EED4: FO OA BEQ SEEEO No key pressed, then exit 
EED6: AO 00 LDY # $00 Indicator for cassette recorder 
EED8: 84 CO sTY * Sco Reset OFF in zero-page tape flag 
EEDA: A5 01 LDA * $01 Get processor port data register 
EEDC: 09 20 ORA # $20 And set bit for motor off 
EEDE: DO 08 BNE SEEE8 Unconditional jump 
BEEO: A5 CO LDA * SCO Check z-page tape flag for motor 
EEE2: DO 06 BNE S$EEEA If motor on, then skip 
BEE4: AS 01 LDA * $01 Get processor port data register 
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EEE6: 
EEE8: 
EEEBA: 


29 DF 


85 
60 


O01 


AND # SDF 
STA * $01 
RTS 


KKKEKKKKKEKKKKKKKKKEKKKKKKEKKKKKKK 


EEEB: 
EEED: 
EEEF : 
EEF 1: 
EEF3: 
EEFS5: 
EEF 6: 


A5 
DO 
A5 
05 
FO 
78 
4c 


99 
OA 
DO 
D1 
OF 


06 CO 


LDA 
BNE 
LDA 
ORA 
BEQ 
SEI 
JMP 


x $99 
SEEF9 
* $DO 
* SD1 
SEF04 


$C006 


KKKKKKEKKKKKKKKEKKKEKKEKEKEKEKKKKKKK 


EEF 9: 


device 
EEF'B: 
EEFD: 
BEEFF': 
EFO2: 
EFO4: 
EFO5: 


C9 


DO 
84 
20 
A4 
18 
60 


02 


18 
97 


CE E7 


97 


CMP 


BNE 
STY 
JSR 
LDY 
CLC 
RTS 


# $02 


SEF15 


* $97 


SE7CE 


* $97 


KKEKEKKKKKKEKKKEKKKKKKEKEEKKKKKKKKK 


EFO6: 
EFO8: 
EFOA: 
EFOC: 


EF OE: 
EF10: 
EF12: 
EF15: 
EF17: 
EF19: 
EF1B: 


A5 
DO 
A5 
85 
A5 
85 
4c 
C9 
DO 
85 
A5 


99 
OB 
EC 
E9 
EB 
E8 
09 CO 
03 
09 
D6 
E77 


LDA 
BNE 
LDA 
STA 
LDA 
STA 
JMP 
CMP 
BNE 
STA 
LDA 
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And clear bit for motor on 
Write back into processor port 
Return from subroutine 


Kernal routine: GETIN 
Read a character 


Load acc with current input dev. 
Not keyboard, then continue 
Num. of char in keyboard buffer 
Combine with function key pntr 
No char there, then "OK" exit 
Disable all system interrupts 

Get char from keyboard buffer 


GETIN evaluation not RS-232 
Check if RS-232 is the input 


Not RS-232, to BASIN routine 
Store current contents of Y-reg 
GETIN routine of RS-232 

Get old contents of Y-reg back 
Set marker for everything OK 
Return from subroutine 


Kernal routine: BASIN 
Read character 


Load acc with current input dev. 
Not keyboard, then continue 

Get current cursor column in acc 
In z-page start of input column 
Get current cursor line in acc 

In zero page start of input line 
Get character from screen 

Check if input device is screen 
Not screen, then continue 

In zero-page pointer for input/get 
Load right window-border in acc 
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EFI1D: 
EFILF: 
EF22: 
EF24: 
EF26: 
EF28: 
EF2A: 
EF2D: 
EF2F: 
EF30: 
EF33: 
EF35: 
EF37: 
EF39: 
EF3C: 
BEF3E: 
EF 40: 
EF41: 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


EF42: 
EF 43: 
EF 44; 
EF45: 
EF 47: 


KEKKEKKKEKKKEKKKKKKKKKEKKKKKKKKKKK 


EF48: 
EF 4B: 
EF 4D: 
BF50: 
EF 52: 
EF54: 
EF 56: 
BF 58: 
EFDSA: 
EF5SB: 


85 
4c 
BO 
C9 
FO 
86 
20 
BO 
48 
20 
BO 
DO 
AY 
20 
C6 
A6 
68 
60 


AA 
68 
8A 
Ao 
60 


20 
DO 
20 
BO 
AY 
85 
FO 
Bl 
18 
60 


BA 
09 CO 
38 
02 
3F 
97 
48 EF 
16 


48 EF 
OD 
05 
40 
57 FT 
A6é 
97 


97 


BE E9 
OB 
F2 E9 
09 
00 
Aé 
FO 
B2 


TAX 
PLA 
TXA 
LDX 
RTS 


JSR 
BNE 
JSR 
BCS 
LDA 
STA 
BEQ 
LDA 
CLC 
RTS 


* SEA 
$c009 
SEF5C 
# $02 
SEF 67 
* $97 
SEF 48 
SEF45 


SEF 48 
SEF 42 
SEF 3C 
# $40 
SE757 
* SA6 
* $97 


* $97 


SE9SBE 
SEF58 
SEQF2 
SEF5B 
# $00 
* SA6 
SEF 48 


($B2),Y 
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In zero page for end of input line 
Get character from screen 
Dev>3, read char from serial bus 
Input device 2 (RS-232) set? 
Yes, then get char from RS-232 
Save current contents of X-reg 
Read a character from cassette 
Exit from routine: Read cassette 
Save acc contents on stack 

Read a character from cassette 
Error occurred, then skip 

Last character read from tape? 
Put EOF marker in acc 

And set STATUS accordingly 
Decrement tape buffer pointer 
Get X-reg contents back 

Get acc contents back from stack 
Return from subroutine 


Error occurred reading from tape 


Put error number in X-reg 
Get character 

Put error number in acc 
Restore x-reg contents 
Return from subroutine 


Read a character from cassette 


Increment tape buffer pointer 
Still chars in buffer, then read 
Read next block from cassette 
STOP key pressed, then stop 
Load acc with $00 & in z-page 
Storage for cassette buffer pntr 
Get next character 

Read a character from the buffer 
Set indicator for "OK" 

Return from subroutine 
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EF5C: 
EF5E: 
EF 60: 


EF63: 
EF65: 
EF66: 


A5 
DO 
4c 


A9 
18 
60 


90 
03 
3E E4 


OD 


LDA 
BNE 
JMP 


LDA 
CLC 
RTS 


* $90 
SEF 63 
SE43E 


# SOD 
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EF67: 
EF6A: 
EF6C: 
EF OE: 
EF70: 
EF73: 
EF75: 
BE77: 


20 
BO 


FD EE 
F9 
00 
F 6 
14 OA 
60 
EC 
EE 


JSR 


BCS 


SEEFD 
SEF65 
# $00 
SEF 66 
$0A14 
# $60 
SEF 63 
SEF 67 
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EF79: 
EF7A: 
EF7C: 
EF7E: 
EF80: 
EF81: 


48 
A5 
C9 
DO 
68 
4c 


9A 
03 
04 


0C C0 


PHA 
LDA 
CMP 
BNE 
PLA 
JMP 


x SOA 
# $03 
SEF 8 4 


$C00C 
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EF 84: 
EF 86: 
EF 87: 
EF 8A: 
EF 8B: 
EF8C: 
EF8E: 


90 
68 
4c 
4A 
68 
85 
8A 


04 


03 E5 


9E 


BCC 
PLA 
JMP 
LSR 
PLA 
STA 
TXA 


SEF 8A 


SE503 
A 


* S9E 
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Get character from serial bus 


Load system status in acc 
Status not OK, then exit 
Kernal ACPTR: get byte from 
serial bus 

Load code for <CR> in acc 
Set indicator for OK 

Return from subroutine 


Get character from RS-232 


Read a byte from RS-232 
Error occurred, then exit 

Was character read a zero-byte? 
No, then OK exit 

Load RS-232 status in acc 
Data set ready (DSR) missing? 
Yes, then return <CR> code 
No, then new read attempt 


Kernal routine: BSOUT 
(character out) 


Store character to output 

Get curent output device 

Is it the screen (3)? 

No, then skip screen output 
Get character to output 

In routine: Char output screen 


BSOUT output not to screen 


Output to RS-232 / Datassette 
Get character 

BSOUT output to serial (DA> 3) 
Test if RS-232 or datasette 

Get character to output 

And store in zero page 

Save current contents of X-reg 
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EF8F: 48 PHA On stack via acc 
EF90: 98 TYA Save current contents of Y-reg 
EF91: 48 PHA On stack via acc 
EF92: 90 23 BCC SEFB7 Jump to the RS-232 output 
EF94: 20 BE E9 JSR SEQ9BE Increment tape buffer pointer 
EF97: DO OE BNE SEFA7 Buffer not full, char in buffer 
EF99: 2015 EA JSR S$SEA15 Write buffer to tape 
EF9C: BO OE BCS SEFAC If STOP key pressed, stop 
EF9E: A9 02 LDA # $02 Set control byte for data block 
EFAO: AO 00 LDY # $00 Set displacement to tape buffer 
EFA2: 91 B2 STA ($B2),Y¥ And write control byte to buffer 
EFA4: C8 INY Increment the displacement to 
EFA5: 84 AG STY * SA6 the tape buffer and store in Z-P 
EFA7: A5 9E LDA * S$9E Character to output from Z-P 
EFA9: 91 B2 STA ($B2),Y Write in output buffer 
EFAB: 18 CLC Set indicator for OK 
EFAC: 68 PLA Restore old values from stack 
EFAD: A8 TAY Restore Y-reg contents 
EFAE: 68 PLA Restore 
EFAF: AA TAX X-reg contents 
EFBO: A5 9E LDA * S9E Get character to output 
EFB2: 90 02 BCC SEFB6 Everything OK, then return 
EFB4: A9 00 LDA # $00 Flag for "STOP" key pressed 
EFB6: 60 RTS Return from subroutine 
KAKKKKKKKKKEKKEKKKE KKK KKEKKKKKKEKK Output RS-232 character 
EFB7: 20 5F E7 JSR  S$E75F Write character in RS-232 buffer 
EFBA: 4C AB EF JMP SEFAB Clean up stack and return 
KKKKKKKKKKKKEKKKKKKKKKKKKKKKKKK Kernal routine: OPEN 

Open a logical file 
EFBD: A6 B8 LDX * SB8 Get logical file number in X-reg 
EFBF: 20 02 F2 JSR $F202 Find LFN in LEN table 
EFC2: FO 2F BEQ SEFF3 Found, then output error 
EFC4: A6 98 LDX * $98 Get number of open files 
EFC6: EO OA CPX # SOA Max of 10 open are possible 
EFC8: BO 26 BCS SEFFO More than 10 open, then error 
EFCA: E6 98 INC * $98 Number of open files +1 
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EFCC: A5 B8 LDA * S$B8 Get logical file number in acc 
EFCE: 9D 62 03 STA $0362,X Enter LFN in LEN table 

EFD1: A5 B9 LDA * SB9 Get secondary address in acc 
EFD3: 09 60 ORA # $60 Set Print, Input, Get in SA 
EFD5: 85 B9 STA * $BQ And store in SA mem again 
EFD7: 9D 7603 #£STA $0376,X Enter SA in SA table 

EFDA: AS BA LDA * SBA Load device address in acc 
EFDC: 9D 6C 03. STA $036C,X GA in GA-Table 

EFDF: FO 0D BEQ SEFEE Was it the keyboard (0), skip 
EFE1: C9 02 CMP # $02 Check if RS-232 selected as dev 
EFE3: FO 5B BEQ SF040 Yes, then skip to RS-232 
EFE5: 90 OF BCC SEFF6 Less than 2, it is tape OPEN 
EFE7: C9 03 CMP # $03 Check if screen selected as dev 
EFE9: FO 03 BEQ SEFEE Yes, then skip 

EFEB: 20 CB FO JSR _ $FOCB Open file on serial bus 

EFEE: 18 CLC Set marker for everything OK 
EFEF: 60 RTS Return from subroutine 
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EFFO: 
EFF3: 
EFF 6: 
EFF 9: 
EFFB: 
EFFE: 
FOO0Q: 
F002: 
F004: 
F007: 
FOO09: 
FOOC: 
FOOE: 
FO10: 
F013: 
FOQ15: 
FO17: 
FOIA: 
FOLD: 
FOLF: 
F021: 
F023: 
FO26: 
F028: 
FO2ZA: 
FO2D: 
FOQ2F: 
FO31: 
F033: 
F035: 
F037: 
F039: 
FO3B: 
FO3C: 
FO3E: 
FO3F: 


4c 
AC 
20 
BO 
4c 
A5 
29 
DO 
20 
BO 
20 
A5 
FO 
20 
90 
FO 
4c 
20 
90 
FO 
BO 
20 
BO 


AQ 


20 
AY 
A4 
CO 
F0 
AO 
AY 
91 
98 
85 
18 
60 


71¢ 
TF 
80 
03 
94 
B9 
OF 
1F 
C8 
36 
OF 
B7 
OA 
9A 
18 
28 
85 
DO 
OE 
1E 
F4 
E9 
1] 
04 
19 
BF 
BY 
60 
07 
00 
02 
B2 


A6 


F'6 
F6 
9 


F6 


B9 


F5 


E9 


F6 
E8 


E9 


E9 


SF67C 
SF67F 
SE980 
SEFFE 
SF694 
x SBY 
# SOF 
SF023 
SE9CB8 
SFO3F 
SF50F 
x SB7 
SFO1A 
SE99A 
SF02D 
SFO3F 
SF685 
SE8D0 
SF02D 
SFO3F 
SF017 
SE9E9 
SFO3F 
# $04 
$SE919 
# SBF 
* SB9 
# $60 
SF03C 
# $00 
# $02 


($B2),¥ 


* SA6 
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Open routine for tape operation 


I/O error #1 (Too many files) 
I/O error #2 (File open) 
Get tape buffer start address 
Carry set, then valid address 
I/O error #9 (Illegal device num) 
Get secondary address in acc 
Mask out upper nibble (4-7) 
Not zero, wait for record & play 
Wait for key on datasette 
Invaid, then carry = 1, RTS 
Message "SEARCHING FOR" 
Length of filename in acc 
No filename present, then skip 
Find corresponding tape header 
Not found, then continue 
Return with carry set 
I/O error #4 (File not found) 
Find next header on cassette 
If found then continue 
Return w/ carry on because EOT 
Cont search because a PRG file 
Wait for record & play buttons 
STOP key pressed, then stop 
Control code-data header in acc 
Write tape header to cassette 
Pointer to end of tape buffer in A 
Get secondary address in Y-reg 
SA code for print, input, or get? 
Yes, then set pointer and RTS 
Set displacement for tape buffer 
Control byte for data block 
Write into cassette buffer 
Copy displacement from Y to A 
And set zero page tape buffer 
Set indicator for OK 
Return from subroutine 
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FO40: 
FQ43: 
F046: 
F048: 
FO4A: 
FO4D: 
F050: 
FO51: 
F053: 
FOQ55: 
F058: 
FOSB: 
FOSE: 
F060: 
F062: 
F063: 
F064: 
FOQ67: 
F069: 


FO6C: 


FO6F: 
FO72: 


FO75: 


F078: 
FO7B: 
FO7E: 
FO81: 
F082: 
F083: 
F086: 
FO87: 
FO88: 
F089: 
FO8B: 


20 
8C 
C4 
FO 
20 
99 
C8 
CO 


13 


C8 
16 


FQ 
OA 


F’/] 
OA 


E6 
OA 
OA 


OA 


E8 


E8 


FO 
E8 


E8 


OA 


OA 
OA 


OA 


OA 


SFOBO 
$0A14 
* $B7 
SF055 
SF7AE 


S0A10,¥Y 


# $04 
SF046 
SE68E 
SOA15 
$0A10 
# SOF 
SFO7E 
A 


$0A03 
SF072 


SE84F,X 


SE84E,X 


SF078 


SE863,X 


SE862,X 


S0A13 
SOA12 
SOA12 
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RS-232 Open 


Reset CIAs 

Clear Z-P RS-232 status byte 
Compare with lengh of filename 
Equal zero, calculate data bits 
Get 1 byte for RS-232 register 
Init. RS-232 control register, 
Command register, and the 
User baud rate 

Loop until 4 values transferred 
Calculate number of data bits 
Storage number of bits to send 
Load RS-232 control register 
Isolate bits for baud rate 
Determine code value - baud rate 
Multiply by 2 for table displace 
Copy to X-reg for index 

Get PAL/NTSC pointer 

Not NTSC version, then skip 
Timer constant RS-232 b-rate 
NTSC Hi 

Timer constant RS-232 b-rate 
NTSC Lo 

Skip to save baud rate 

Timer constant RS-232 b-rate 
PAL Hi 

Timer constant RS-232 b-rate 
PAL Lo 

Store high value of baud rate 
Store low value of baud rate 
Get low value baud rate 

And multiply by 2 

Store value in X-reg 

Get high value of baudrate 
And multiply by 2 

Store value in Y-reg 

Low val code determine in acc 
Add decimal 200 

Store timer val transmit baud rate 


Abacus Software 


C-128 Internals 





FO8E: 
FO8F: 
FO9IL: 
F094: 
F097: 
FO98: 
FO9QA: 
FO9D: 
FO9E: 
FOQAO: 
FOA3: 
FOA6: 
FOA9: 
FOAC: 
FOAF: 


8D 
60 


00 
17 
11 


09 
O01 


03 
50 
18 
19 
1B 
1A 


OA 
OA 


DD 


7 
OA 
OA 
OA 
OA 
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FOBO: 
FOB2: 
FOBS: 
FOB7: 
FOBA: 
FOBD: 
FOBF: 
FOC2: 
FOCS: 
FOC7: 
FOCA: 


A9 


8D 


A9 
8D 
8D 
A9 
0D 
8D 
AO 
8C 
60 


TE 
OD 
06 
03 
O01 
04 
00 
00 
00 
OF 


DD 


DD 
DD 


DD 
DD 


OA 


LDA 
STA 
LDA 
STA 


# STF 
SDDOD 
# $06 
SDD03 
SDD01 
# $04 
$DD00 
SDD00 
# $00 
SOAOF 
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FOCB: 
FOCD: 
FOCF: 
FOD1: 
FOD3: 
FOD4: 


A5 
30 
A4 
DO 
18 
60 


BY 
04 
B7 
02 


LDA 
BMI 
LDY 
BNE 
CLC 
RTS 


* $B9 
SFOD3 
* SB7 
SFOD5 
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High val code determine in acc 
Add decimal 000 

Store timer value - transmit rate 
Get RS-232 command register 
Check for 3-line handshake 
Yes, then skip DSR test 
Check if DATA SET READY 
(DSR) signal missing 

No, then skip 

Set status for DSR 

Set start of RS-232 input buffer 
equal to end of input buffer 

Set start of RS-232 out. buffer 
equal to end of output buffer 
Return from subroutine 


Reset CIAs to RS-232 


Value for "clr interrupts" in acc 
Reset IRQs 

Set bits 1 and 2 to output 

Data direction register port B 
Port register port B 

Set bit 2 of data port A (CIA 2) 
For the RS-232 data output 
(TXD Signal) 

Load Y with $00 and clear the 
RS-232 NMI flag 

Return from subroutine 


Open file on serial bus 


Load secondary address in acc 
If bit 7 set for "CLOSE", exit 
Get length of filename 

Not zero, then continue 

Clear carry for OK indicator 
Return from subroutine 
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FODS: 
FOD?7: 
FOD9: 
FODB: 
FODE: 
FOEO: 
FOE2: 
FOE4: 
FOE6: 
FOES: 
FOEB: 
FOED: 
FOEE: 
FOEF: 
FOF2: 
FOF4: 
FOF6: 
FOF8: 
FOFB: 
FOFE: 
FOFF: 
F101: 
F103: 


A9 
85 
A5 
20 
24 
30 
A5 
09 
20 
A5 
10 
68 
68 
4c 
A5 
FO 
A0 
20 
20 
C8 
C4 
DO 
4c 


00 
90 
BA 
3E 
90 
0B 
B9 
FO 
D2 
90 
05 


E3 


E4 


88 F6 
B7 
0D 
00 
AE F7 
03 ES 


B7 
F5 
BO F5 


LDA 
STA 
LDA 
JSR 
BIT 
BMI 
LDA 
ORA 
JSR 
LDA 
BPL 
PLA 
PLA 
JMP 

LDA 
BEQ 
LDY 
JSR 
JSR 
INY 

CPY 

BNE 
JMP 


# $00 
* $90 
x SBA 
SE33E 
x $90 
SFOED 
x SB9 
# SFO 
SE4D2 
* $90 
SFOF2 


SF688 
* S$B7 
SF103 
# $00 
SF7AE 
SE503 


* $B7 
SFOF8 
SF5BO0 


KKKKKKKKKKEKKKKEKKEKKKKEKKKKKERKKK 


F106: 
F109: 
F1OB: 
F1OE: 
F110: 
F112: 
F114: 
F116: 
F118: 
FI1A: 
F11D: 


20 
DO 
20 
FO 
C9 
FO 
BO 
C9 
DO 
4c 
A6 


02 F2 
3E 
12 F2 
13 
03 
OF 
a. 
02 
03 
95 B7 
B9 


SF202 
SF149 
SF212 
$F123 
# $03 
$F123 
$F127 
# $02 
SF11D 
$E795 
x SB9 
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Send filename on serial bus 


Set the status byte to the 

Marker $00 (= everything OK) 
Load device address in acc 

Wait for end of RS-232 transfer 
Test STATUS for set EOF bit 

If EOF, then output error 

Load secondary address in acc 
Set control nibble in SA 

Rout. SECND: SA for LISTEN 
Load system STATUS in acc 

If OK, continue as normal 
Remove RTS address from stack 
Remove RTS address from stack 
I/O error #5 (Device not present) 
Get length of filename 

No name given, then skip 

Displ. to first char of filename 
Read 1 character of filename 
Krnal CIOUT: byte to serial bus 
Increment displacement pointer 
Displacement = filename length? 
No, then continue to output 
UNLSN on serial bus and RTS 


Kernal routine: CHKIN 
Set input channel 


Search for LFN in LFN table 
I/O error #3 (File not found) 
Reset LFN,DA,SA 

DA = 0, then set standard 

Is it the DA 3 (= screen )? 

Yes, then set screen for standard 
Greater than 3, then serial eval. 
Check if RS-232 selected 

No, then it was the datasette 

To RS-233 input 

Get secondary address in X-reg 
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FIlF: 
F121: 
F123: 
F125: 
F126: 


EO 
DO 
85 
18 
60 


60 
20 
99 


CPX 
BNE 
STA 
CLC 
RTS 


# $60 
$F143 
x $99 
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F127: 
F128: 
F1i2B: 
F12D: 
F12F: 
F131: 
F133: 
F136: 
F138: 
F13B: 
F13C: 
F13E: 
F140: 
F143: 
F146: 
F149: 


AA 
20 
24 
30 
A5 
10 
20 
10 
20 
8A 
24 
10 
AC 
4c 
4c 
4C 


3B E3 
90 
11 
BY 
05 
E9 H4 
03 
BO E4 


90 
E3 
88 F6 
8B F6 
8E F6 
82 F6 


$E33B 
* $90 
$F140 
* S$B9 
SF138 
SE4E9 
SF13B 
SE4E0 


* $90 
$F123 
SF688 
SF68B 
SF68E 
SF682 
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F14C: 
FI14F: 
F151: 
F154: 
F156: 
F158: 
FLSA: 
F15C: 
F15E: 
F160: 
F163: 
F165: 


20 
DO 
20 
FQ 
C9 
F0 
BO 
C9 
DO 
4c 
Aé 
E0 


02 F2 
F8 
12 F2 
FO 
03 
OF 
11 
02 
03 
29 E7 
B9 
60 


JSR 
BNE 
JSR 
BEQ 
CMP 
BEQ 
BCS 
CMP 


BNE 


JMP 
LDX 
CPX 


$F202 
$F149 
SF212 
SF146 
# $03 
SF169 
SF16D 
# $02 
SF163 
SE729 
* SB9 
# $60 
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Is the secondary address = Q? 
I/O error #6 (Not input file) 

In Z-P for standard input device 
Set indicator for OK 

Return from subroutine 


Evaluation for CHKIN on serial 


Store device address in X 

Rout. TALK: cmd to serial bus 
Test STATUS for set EOF bit 
Bit 7 set = "Device not present’ 
Load secondary address in acc 
Send secondary addr. for TALK 
Wait for clock signal 

Skip output of TALK sec. addr. 
Routine TKSA: sec addr for talk 
Get device addr. back from acc 
Test STATUS for set EOF bit 
Everthing OK, set input device 
I/O error #5 (Device not present) 
I/O error #6 (Not input file) 

V/O error #7 (Not output file) 
I/O error #3 (File not open) 


Kernal routine: CKOUT 
Set output channel 


Search for LFN in LFN table 
I/O Eerror #3 (File not open) 
Reset LFN, DA, SA 

I/O error #7 (Not output file) 
Compare with DAA 3 (= screen) 
Yes, then set as standard output 
DA > 3, then serial evaluation 
Check if RS-232 selected 

No, then skip 

To RS-232 output 

Get secondary address in X-reg 
Is the secondary address = 0? 
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F167: 
F169: 
F16B: 
F16C: 


FO 
85 
18 
60 


DD 
9A 


BEQ 
STA 
CLC 
RTS 


SF146 
* SOA 


KKEKEKEKEKKKEKKKKEKKEKKKKRKKKRKKKKKKKKE 


F16D: 
F16E: 
F171: 
F173: 
F175: 
F177: 
F179: 
F17C: 
FL7E: 
F1i8il: 
F182: 
F184: 
F186: 


AA 
20 
24 
30 
A5 
10 
20 
DO 
20 
8A 
24 
10 
30 


3E E3 
90 
CB 
BY 
05 
D7 
03 
D2 


B4 


B4 


90 


E3 
B8 


TAX 
JSR 
BIT 
BMI 
LDA 
BPL 
JSR 
BNE 
JSR 
TXA 
BIT 
BPL 
BMI 


SE33E 
* $90 
SF140 
xk SB9 
SF17E 
SE4D7 
SF181 
SE4D2 


x $90 
SF169 
SF140 
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F188: 
F18A: 
F18D: 
F18F: 
F192: 
F193: 
F194: 
F196: 
F198: 
FI19A: 
F19C: 
FI9E: 
FI1A0: 
FIA2: 
F1A3: 
FIA6: 


66 
20 
DO 
20 
8A 
48 
A5 
FO 
C9 
FO 
BO 
C9 
DO 
68 
20 
4C 


92 
O07 F2 
DC 
12 F2 


BA 
4c 
03 
48 
St 
02 
07 


E5 Fl 
BO FO 


ROR 
JSR 
BNE 
JSR 
TXA 
PHA 
LDA 
BEQ 
CMP 
BEQ 
BCS 
CMP 
BNE 
PLA 
JSR 
JMP 


* $92 
$F207 
SF16B 
SF212 


* SBA 
SF1E4 
# $03 
SF1E4 
SF1CF 
# $02 
SF1A9 


SF1E5 
SFOBO 
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I/O error #7 (Not output file) 
In Z-P for standard out device 
Set indicator for OK 

Return from subroutine 


Evaluation for CKOUT on serial 


Dev addr. for LISTN in X-reg 
Rout LISTN: cmd to serial 

Test STATUS for set EOF bit 
I/O error #5 (Device not present) 
Load secondary address in acc 
OPEN/CLOSE bit clr, then skip 
Reset ATN signal 

Skip output of listen sec. addr 
Rout SECND: sec. addr for listn 
Device address back in acc 

Test status for set EOF bit 
Everything OK, then RTS 

I/O error #5 (Device not present) 


Kernal routine: CLOSE 
Close a file 


Rotate carry as marker, Z-P flag 
Search for LFN in LFN table 
Not found, then OK return 
LFN,DA,SA renew corr. tables 
Table displacement pointer 

Save on stack 

Load device address in acc 
Addressed device the keyboard? 
Check if device addressed was 
Screen (3)Yes, then skip 

Was it a device on the serial bus? 
Was it the RS-232? 

No, then close on cassette 

Get the displacement to the table 
Delete file entry from table 
Reset CIAs and RTS 
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FI1A9: 
FI1AB: 
FIAD: 
FILAF: 
F1B2: 
F1B4: 
FIBD5: 
F1B8: 
FIBB: 
F1BD: 
FIBE: 
F1COQ: 


KKEKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKK 


FiCcl1: 
F1C3: 
F1C5: 
F1C7: 
F1C9: 
F1CC: 
F1CF: 
F1D1: 
F1D3: 
F1D5: 
F1D7: 
F1D9: 
FIDB: 
F1DD: 
FILDF: 
FIE1: 
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F1E4: 
F1ES5: 
FIF6: 


A5 
29 
FO 
20 
AY 
38 
20 
20 
90 
68 
A9 
60 


A5 
C9 
DO 
AY 
20 
AC 
24 
10 
A5 
C9 
90 
A5 
29 
C9 
FO 
20 


68 


AA 


Cé 


B9 
OF 
35 
80 EY 
00 


8C EF 
15 EA 
04 


00 


BY 
62 
1D 
05 
19 EQ 
E4 Fil 
92 
OE 
BA 
08 
08 
B9 
OF 
OF 
03 
9E FS 


98 


LDA 
CMP 


PLA 
TAX 
DEC 


* SB9 
# SOF 
SF1E4 
SE980 
# $00 


SEF 8C 
SEA15 
$F1cl 


# $00 


* SB9 
# $62 
SF1E4 
# $05 
SE919 
SF1E4 
* $92 
SF1E1 
* SBA 
# $08 
SF1E1 
* SB9 
# SOF 
# SOF 
SF1E4 
SF59E 


* $98 


Close a tape file 


Load secondary address in acc 
Mask out upper nibble (4-7) 
Delete file entry from table 

Get tape buffer address & check 
Set marker for close and 

Set control marker carry 

Write character in buffer 

Write buffer to tape 

All OK, continue with tape close 
Get character output back 
Replace with CHR$(0) 

Return from subroutine 


Delete file entry 


Load secondary address in acc 
Lower nibble of the SA = 2? 
Delete file entry from table 

Set control byte for EOT header 
Write data block to tape 
Delete file entry from table 
Check tape time constant 

Less than 128, then send close 
Load device address into acc 
Was it a disk drive (8-15) 

No, then skip disk close 

Load secondary address into acc 
Mask out upper nibble (bits 4-7) 
Was cmd channel (15) opened 
then delete file entry from table 
Send CLOSE cmd to device 


Delete file entry from table 
Get displacement to table 


Copy displacement from A to X 
Number of open files - 1 
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F1E8: 
FIEA: 
FLEC: 
FIEE: 
FIFI: 
FI1F4: 
FIF7: 
FIFA: 
FIFD: 
F200: 
F201: 


E4 
FO 
A4 
B9 
9D 
B9 
9D 
B9 
9D 
18 
60 


98 
14 
98 
62 
62 
6C 
6C 
76 
76 


03 
03 
03 
03 
03 
03 


CPX 
BEQ 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
CLC 
RTS 


298 
$F200 
* $98 


$0362,Y 
$0362,X 
$036C,Y 
$036C,X 
$0376,Y 
$0376,X 


KAEKEKKKKKKKKKKEKKKKKKEKKKEKKKKKKKSE 


F202: 
F204: 
F206: 
F207: 
F209: 
F20A: 
F20C: 
F20F: 
F211: 


AQ 
85 
8A 
Ao 
CA 
30 
DD 
DO 
60 


00 
90 


98 


05 


62 
F8 


03 


LDA 
STA 
TXA 
LDX 
DEX 
BMI 
CMP 
BNE 
RTS 


# $00 
* $90 


* $98 


SF211 


$0362,X 


SF209 


KKEEKKEKKKEKKKKKKKKKKKKEKKKKKKKKKK 


F212: 
F215: 
F217: 
F21A: 
F21C: 
F21F: 
F221: 


BD 
85 
BD 
85 
BD 
85 
60 


62 
B8 
76 
BY 
6C 
BA 


03 


03 


03 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


$0362,X 


* SB8 


$0376,X 


* SB9 


$036C,X 


* SBA 
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Was the table entry found the 
Last table entry? Then exit 
Get num. of open files for displ. 
Get last entry from LFN table 
And copy to free position 

Get last entry in DA table 
And copy to free position 

Get last entry from SA table 
And copy to free position 

Set indicator for OK 

Return from subroutine 


Search for LFX in X in LFN 
table 


Clear status byte and 

Set indicator for everything OK 
Copy target for LFN in acc 

Get number of open files 

Dec by 1, because used as index 
All comparisons negative, exit 
Cmp with byte from LFN table 
Not equal, then next comparison 
Return from subroutine 


LFN,DA,SA corresponding to 
the X-reg 
Get displacement to tables 


The logical file number specified 
by X-reg in z-page byte for LFN 
The secondary address specified 
by X-reg in z-page byte for SA 
The device address specified by t 
X-reg in zero-page byte for DA 
Return from subroutine 
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KKEKEKEKEKKKKKKEKKKKKKKKKKKKKKKKKER 


F222: 
F224: 


A9 
85 


00 
98 


LDA 
STA 


# $00 
* $98 


KKKEKKKKKKKKKKKKEKKKKKEKKKKEKKKKEKE 


F226: 
F228: 
F22A: 
F22C: 
F22F: 
F231: 
F233: 
F236: 
F238: 
F23A: 
F23C: 


A2 
B4 
BO 
20 
E4 
BO 
20 
86 
AY 
85 
60 


03 
9A 
03 
26 
99 
03 
15 E5 
9A 

00 

99 


E5 


# $03 
* SOA 
SF22F 
SE526 
* $99 
SF236 
SE515 
* SOA 
# $00 
* $99 


KKKKKKKKKKKKKKKKKKKKKKKKKEKKKKK 


F23D: 
F23F: 
F241; 
F243: 
F245: 
F247: 
F24(: 
F24A: 
F24C: 
F24E: 
F250: 
F252: 
F254: 
F255: 
F257: 
F25A: 
F25C: 


85 
C5 
DO 
AY 
85 
2C 
C5 
DO 
AY 
85 
A5 
A6é 
CA 
30 
DD 
DO 
BD 


BA 
9A 
05 
03 
9A 


99 
04 
00 
99 
BA 
98 


OD 
6C 03 
F8 
62 03 


STA 
CMP 
BNE 
LDA 
STA 


-Byte 


CMP 


* SBA 
* SOA 
SF248 
# $03 
* SOA 

$2C 
# $99 
SF250 
# $00 
x $99 
* SBA 
* $98 


SF264 


$036C,X 


SF254 


$0362,X 
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Kernal routine: CLALL 
Reset all open files 


Load acc with O and in zero-page 
Storage for number of open files 


Kernal routine: CLRCH 
Reset input/output channel 


Load code for device screen (3) 
Cmp with current output dev in 
CLRCH rout - dev on serial bus 
Rout UNLSN:cmd to serial bus 
Cmp with current input device in 
CLRCH rout dev on serial bus 
Rout UNTLK:cmd to serial bus 
Set screen as output device and 
The keyboard as the standard 
Input device 

Return from subroutine 


Set standard I/O devices 


In Z-P byte for current dev addr 
Cmp with current output device 
Not equal, cmp with input dev 
Load acc with dev addr for 
Screen (3) & set as output device 


Skip to $F24A 
‘Cmp with current input device 


Not equal, search in DA table 
Load acc with code for keybaord 
(QO) and set the keyboard as input 
Load device address in acc 
Number of open files in X-reg 
Decremnt by 1, used as index 
All comparions negative, exit 
Cmp with table for dev addr. 
Not found, then next compare 
Get LEN for corresponding DA 
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F25F: 
F262: 
F264: 


20 
90 
60 


C3 FF 
EC 


JSR 
BCC 
RTS 


SFFC3 
SF250 


KAEKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


F265: 
F267: 
F269: 
F26C: 
F26E: 
F270: 
F272: 
F274: 
F276: 
F278: 


86 
84 
6C 
85 
A9 
85 
AS 
C9 
BO 
4C 


C3 
C4 
30 
93 
00 
90 
BA 
04 
03 
26 F3 


03 


STX 


STA 
LDA 
STA 
LDA 
CMP 
BCS 
JMP 


* $C3 
* $C4 


($0330) 


* $93 
# $00 
* $90 
x SBA 
# $04 
SF27B 
SF326 


KKEEEKKKKKKKKEKKEKKKKKKKKKKKKKKEKE 


F27B: 
F27E: 
F280: 
F283: 
F285: 
F287: 
F289: 
F28B: 
F28E: 
F290: 
F293: 
F296: 
F298: 
F29B: 
F29D: 
F29F: 
F2A1: 
F2A3: 
F2A6: 
F2A8: 


AD 
29 
8D 
A6é 
86 
A4 
DO 
4C 
84 
20 
20 
BO 
4C 
A4 
84 
AY 
85 
20 
A5 
20 


1c OA 
BE 
1c 
BY 
9F 
B7 
03 
1A 
OF 
OF 
Al 
03 
9B 
OF 
B7 
60 
BY 
CB 
BA 
3B 


OA 


F3 


FS 
F3 


F3 


FQ 


E3 


SOA1C 
# SBE 
SOA1C 
* $B9 
* $9E 
* $B7 
SF28E 
SF31A 
* SOF 
SF50F 
SF3A1 
SF29B 
SF39B 
* SOF 
* $B7 
# $60 
* SB9 
SFOCB 
* SBA 
SE33B 
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Kernal CLOSE: close file 
If carry clear, next close 
Return from subroutine 


Kernal routine: LOAD 
Load file in a memory range 


Place start address low in z-page 
Place start addr. high in z-page 
Vector points LOADSP ($F26C) 
Zero-page flag, LOAD/VERIFY 
Load acc with $00 and 

Set status to everything OK 
Load device address in acc 
Check for valid device address 
Dev addr greater than 4 is valid 
Check for datasette, else invalid 


Load routine from serial bus 


Read sys pointer for fast serial 
Mode & eliminate bit 6 (1 = fast, 
0 = slow) 

Get secondary address in X-reg 
And store in zero page $9F 

Get length of filename 

Not zero, skip error message 
I/O error #8 (Missing filename) 
Store length of filenames 
Output "Searching for" message 
Chk filenames & fast serialmode 
Carry set, then OK. Skip 

Set load end address and RTS 
Length of filename in Y-reg and 
In z-page for length of filename 
SA 0, high nibble for Input/Get 
In zero-page for sec. address 
Send talk command to serial bus 
Load device address in acc 

Rout TALK: cmd to serial bus 
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Ee 


F2AB: A5 
F2ZAD: 20 
F2B0: 20 
F2B3 85 
F2B5 20 
F2B8 85 
F2BA A5 
F2BC 4A 
F2BD 4A 
F2BE BO 
F2C0 A5 
F2C2 DO 
F2C4 A5 
F2C6 85 
F2C8 A5 
F2CA 85 
F2CC 20 
F2CE AY 
F2D1 25 
F2D3 85 
F2D5 20 
F2D8 FO 
F2DA 20 
F2DD AA 
F2DE A5 
F2E0 4A 
F2E1 4A 
F2E2 BO 
F2E4 8A 
F2ZE5 A4 
F2E7 FO 
F2E9 85 
FZEB AO 
EF 2ED 20 
F2F0 C5 
F2F2 FO 
F2F4 A9 
F2F6 20 
F2F9 DO 
F2FB 20 


B9 
E0 
E4 


E4 


F5 


FF 


B4 


F’/ 


E7] 


BF F7 


E4- 
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Load secondary address into acc 
Rout TKSA: Sec addr for TALK 
Get a byte from serial bus 

Place start address in zero page 
Get a byte from serial bus 

Store start addr high in z-page 
Load system status in acc 

Shift timeout bit right 

Shift timeout bit into carry 
Timeout for read, File not found 
Get stored secondary address 
Not equal to 0, then skip 

Copy the start address given by 
The X and Y registers for the 
Load command from $C3,$C4 
To $AE,$AF 

Disp. control message on screen 
Mask out read timeout bit from 
Status and write back __ 

To status 

Kernal STOP: test for STOP key 
To interruption of load routine 
Kernal routine: ACPTR 

Store acc contents in X 

Load system STATUS in acc 
Eliminate the "read timeout" bit 
From the status byte 

If timeout, then new read attempt 
Restore old acc contents 

Test z-page load/verify pointer 
If zero, then it's load 
Store in zero page parity buffer 
Displac pointer for FETCH rout 
FETCH rout for LSV operations 
Compare with Z-P parity buffer 
If equal, then OK and skip 

Not equal, then OK and skip 
Kernal STATUS: Set sys status 
Not OK, then skip store 

Indsta routine via Z-P $AE-$AF 
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F2FE: E6 AE 
F300: DO 08 
F302: E6 AF 
F304: A5 AF 
F306: C9 FF 
F308: FO 16 


F30E: 20 15 E5 
F311: 20 9E F5 
F314: 4C 9B F3 
F317: 4c 85 F6 
F31A: 4C 91 F6 
F31D: 4C 94 F6 
F320: 4C 97 F6 
F323: 4C B5 F5 


F32A: 20 80 E9 


F32F: 20 C8 EQ 


F334: 20 OF F5 


F33B: 20 9A EQ 


F344: 20 DO E8 


F349: BO CC 
F34B: 38 

F34C: A5 90 
F34E: 29 10 
F350 DO 4E 
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Low byte of memory pointer +1 
No overflow, then skip 

High byte of memory pointer +1 
Check if high byte points in $ 
$FFO0 range. If yes, then jump 
To error output 

Test STATUS for set EOF bit 
No EOF yet, then continue 

Rout UNTLK: cmd to serial bus 
Send Unlistn- Close to serial bus 
Clear carry and return 

I/O error #4 (File not found) 

I/O error #8 (Missing filename) 
I/O error #9 (Illegal device num) 
I/O error #10 

Jump, LOAD routine interrupted 
Is it a load from Datassette? 

No, then I/O error #9 

Get and check tape buffer addr. 
Tape buffer address illegal, error 
Wait for button on recorder 
Interrupt STOP key, then RTS 
Output SEARCH FOR filename 
Z-P storage for filename length 
Length =0, skip name search 
Seach for tape header after name 
OK, then continue 

Interrupt STOP key, then RTS 
I/O error #4 (File not found) 
Read program header from tape 
Interrupt STOP key, then RTS 
I/O error #4 (File not found) 
Marker: Set error found 

Load system status in acc 
Eliminate bit 4 for read error 

Bit 4 set (read error), then RTS 
Code, header type#1 BASIC prg 
If it is a BASIC program, skip 
Code, header type #3 (ML prg) 
If not #1 or #3, continue search 
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F35A: AO 
F35C Bl 
F35E 85 
F360 C8 
F361 Bl 
F363 85 
F365 BO 
F367 A5 
F369 DO 
F36B A0 
F36D Bl 
F36F AO 
F371 Fl 
F373 AA 
F374 Ad 
F376 Bl 
F378 A0 
F37A: Fl 
F37C A8 
F37D 18 
F37E 8A 
F37F 65 
F381 85 
F383 98 
F384 65 
F386 85 
F388 C9 
F38A F0 
F38C A5 
F38E 85 
F390 AD5 
F392 85 
F394 20 
F397 20 
F39A 24 


O01 
B2 
C3 


B2 
C4 
04 
B9 
EF 
03 
B2 
O01 
B2 


04 
B2 
02 
B2 


33 F5 
FB EQ 


JSR 


-Byte 


# $O1 


($B2),Y¥ 


* $C3 


($B2),¥ 


* $C4 
SF36B 
x SB9 
SF35A 
# $03 


(SB2),¥ 


# $01 


($B2) ,Y 


# $04 


($B2),¥ 


# $02 


($B2) ,Y 


* $C3 
SAE 


+ 


x $C4 
* SAF 
# SFF 
$F320 
x $C3 
* S$Cl 
x $C4 
* $C2 
SF533 
SE9FB 

$24 


Displacement to cassette buffer 
Get start addr low from buffer 
And copy it to load addr ptr low 
Displacement in cass buffer +1 
Get start addr high from buffer 
& copy it in load addr ptr high 
Unconditional jump for ML prg 
Load secondary address in acc 
Is it 0 (append)? No, then skip 
Displacement to cassette buffer 
Get end address low from buffer 
Displacement to cassette buffer 
Subtract start addr low from end 
Addr & store low value in X reg 
Displacement to cassette buffer 
Get end addr high from buffer 
Displacement to cassette buffer 
Subtract start addr high from end 
Addr & store high value in Y-reg 
Clear carry for addition 

Program length low back in acc 
Memory start addr + prg length 
Place in pointer for end addr low 
Program length high back in acc 
Memory start addr + prg length 
Place in pntr for end addr high 
Does end addr extend into 
$FFOO. Yes, then I/O error #0 
Copy the memory start address 


~ low into z-page load pointer low 
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Copy the memory start addr high 
Into the z-page load pointer high 
Output LOADING/VERIFYING 
Load program from tape 

Skip to $F39C 
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F39B: 
F39C: 
F39E: 
F3A0: 


18 
Aé6é AE 
A4 AF 
60 


CLC 
LDX 
LDY 
RTS 


* SAE 
* SAF 


KKEEKKKKKKEKKKKKKKKKKKKKKKKKKKKE 


F3A1: 
F3A3: 
F3A6: 
F3A8: 
F3AA: 
F3AC: 
F3AE: 
F3B0: 
F3B3: 
F3B5: 
F3B8: 
F3BA: 
F3BD: 
F3BF: 
F3C2: 
F3C3: 
F3C4: 
F3C7: 
F3C9: 
F3CC: 
F3CF: 
F3D0: 
F3D2: 
F3D5: 
F3D8: 
F3D9: 
F3DB: 
F3DD: 
F3E0: 
F3E3: 


AO 00 
20 AE 
C9 24 
FO F6 
A6 
AO OF 
A9 00 
20 38 
85 B7 
20 CO 
Abo 
20 C9 
90 08 
20 8C 
68 

68 

4c 88 
AO 03 
BY OB 
20 D2 
88 

DO F7 
20 AE 
20 D2 
C8 

C4 OF 
DO 
20 CC 
ZC AC 
70 05 


7] 


E7 


FF 


FF 


F4 


F6 
ES 


FF 


F7 
FF 


FF 
OA 


# $00 
SF7AE 
# $24 
SF3A0 
* SBA 
# SOF 
# $00 
SF738 
* $BT7 
SFFCO 
x SB8 
SFFC9 
SF3C7 
SF48C 


SF688 
# $03 


SF50B,Y 


SFFD2 


SF3C9 
SF7AE 
SFFD2 


x SOF 
SF3D2 
SFFCC 
$O0A1C 
SF3EA 
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Set prg end address after LOAD 


Set carry for OK indicator 
Program end addr low in X-reg 
Program end addr high in Y-reg 
Return from subroutine 


Check filenames and the 
"fast serial mode" 


Set displace for FETCH routine 
Get byte of filename 

Is first character a <$>? 

Yes, then return: RTS 

Load device address in X-reg 
Set secondary address to (15) 
Set logical file number to 0 
Rout SETLFS: Set file params. 
Set length of the filename to 0 
Kernal OPEN: Open file 

Get logical file number in X 
Krnl CKOUT: Set output chnl 


No error, then continue 


Close logical file again 

Remove RTS addr from stack 
Remove RTS addr from stack 
I/O error #5 (Device not present) 
Loop and displacement counter 
Cmd sequence string to disk 
Kernal BSOUT: Output a char 
Decrement loop and displ. by 1 
Loop to U0; CHR$(31) to disk 
Get character fo filename 

Kernal BSOUT: Output a char 
Incr. displacement to filename 
Compare with length of filename 
Not reached, next character 

Krnl CLRCH: Reset I/O channel 
Check "fast serial mode” pointer 
Fast transfer possible, skip 
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F3E5: 
F3E8: 
F3E9: 


20 8C F4 


38 
60 


JSR 
SEC 
RTS 


SF48C 


KKEKKKKKKKKKKEKKEKKKKKKEKKKKKKKKKK 


F3EA: 
F3EC: 
F3EE: 
F3EF: 
F3F2: 
F3F5: 
F3EF8: 
F3FB: 
F3FE: 
F400: 
F402: 
F405: 
F406: 
F407: 
F40A: 
F40B: 
F40D: 
F40F: 
F412: 
F415: 
F417: 
F4l1A;: 
F41C: 
F41E: 
F41F: 
F421: 
F424: 
F427: 
F42A: 
F42C: 
F42F: 
F432: 
F434: 


A5 
85 
78 
20 
20 
2C 
20 
20 
C9 
DO 
20 
68 
68 
4c 
48 
C9 
DO 
20 
20 
85 
4C 
C9 
90 
68 
BO 
20 
20 
20 
85 
20 
20 
85 
Aé 


E5 
ES 
DC 
F5 
F4 


F4 


F6 


FS 
F4 


F4 


F5 
F5 
F4 


F5 
F4 


x SOF 
* SB7 


$E545 
$E5C3 
$DCOD 
SF503 
SF4BA 
# $02 
SF40A 
SF48C 


SF685 


# S1F 
SF41A 
SF503 
SF4BA 
* SA5 
S$F421 
# $02 
S$F421 


SF498 
SF533 
SF503 
SF4BA 
* SAE 
SF503 
SF4BA 
* SAF 
* S9E 
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Close logical file again 
Set OK indicator 
Return from subroutine 


LOAD / VERIFY routines in 
burst mode 


Temp storage for filename length 
In Z-P ptr for filename length 
Disable system interrupts 

Clock high signal to serial bus 
Wait for response from bus 
Clear the CIA IRQ flag 

Invert clock low/high signal 

Get byte from bus (trans status) 
Check if transfer status "File not 
Found" displayed. No, then skip 
Clock hi to ser. bus & close file 
Remove 2-byte RTS return addr 
From stack 

I/O error #4 (File not found) 
Transfer status to stack 

Is it indicator for last block? 

No, then skip 

Invert clock low/high signal 

Get byte from bus (block-byte #) 
In Z-P byte number loop counter 
Set load address 

Check transfer status 

Code $01 indicates OK.OK alan 
Erase stored transfer status 
Jump to "Load error" exit 
Output LOADING/VERIFYING 
Invert clock low/high signal 

Get byte from bus,load addr low 
Save in Z-P address pointer low 
Invert clock low/high signal 

Get byte from bus,load addr hi 
Store in Z-P address pointer 
Load & check stored sec address 
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F436: DO 
F438: A5 
F43A: A6 
F43C: 85 
F43E: 86 
F440: A5 
F442: A6 
F444: 85 
F446: 86 
F448: 68 
F449: C9 
F44B: FO 
F44D: 20 
F450: A9 
F452: 85 
F454: 20 
F457: 20 
F45A: FO 
F45C: 20 
F45F: BO 
F461: 20 
F464: C9 
F466: 90 
F468: C9 
F46A: FO 
F46C: DO 
F46E: 20 
F471: A9 
F473: 85 
F475: DO 


08 
C3 
C4 


FS 


F'6 
FF 


F4 


F4 


F5 


Not zero, then load prg absolute 
Get LOAD address low in acc 
Get LOAD load addr hi in X-reg 
Load addr low in addr pntr low 
Load addr hi in addr pointer high 
Get address pointer low 

Get address pointer hi in X-reg 
Set acc as load address pointer 
Set X-reg as load addr pointer 
Get transfer status from stack 
Status point to last prg block? 
Yes, skip standard block length 
Invert clock low/high signal 

Set the data byte counter for the 
First block of file to read to 252 
Test shift RUN/STOP 

Kernal STOP: Test STOP key 

If zero exit through STOP key 
Read block from disk &process 
Error in memory addr, then RTS 
Get byte from bus (xfer status) 
Check transfer status 

Code $01 indicates OK.OK,skip 
Was it the status for last block? 
Yes, then read last block 

Jump to "load error" exit 

Invert clock low/high signal 

Set data byte counter for normal 
Block to 254 bytes 
Unconditional jump to read rout 
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F477: 
F47A: 
F47D: 
FA7EF: 
F482: 
F485: 
F487: — 
F489: 


20 
20 
85 
20 
20 
BO 
A9 
20 


03 FS 
BA F4 
A5 
03 FDS 
C5 F4 
2B 
40 
57 F7 


JSR 
JSR 
STA 
JSR 
JSR 
BCS 
LDA 
JSR 


$F503 
SF4BA 
* SA5 
SF503 
SF4C5 
$F 4B2 
# $40 
SF757 


KEKKKKKKKKKKKEKKKKEKKKEKKEKKEKKKKK 


F48C: 
F48F: 
F490: 
F492: 
F493: 
F496: 
F497: 


20 
58 
A5 
38 
20 
18 
60 


45 ES 


B8 


C3 FF 


JSR 
CLI 
LDA 
SEC 
JSR 
CLC 
RTS 


$E545 


* $B8 


SFFC3 
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F498: 
F49A: 
F49D: 
F4A0: 
F4A1: 
F4A2: 
F4A4; 
F4A5: 


AY 
20 
20 
68 
68 
AY 
38 
60 


02 
57 F7 
8C F4 


29 


LDA 
JSR 
JSR 
PLA 
PLA 
LDA 
SEC 
RTS 


# $02 
SF757 
SF48C 


# $29 
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F4A6: 
F4A9: 
F 4AB: 
F4AD: 
F4AE: 
F4AF: 


20 
A9 
85 
68 
68 
AC 


8C F4 
00 
B9 


BS FS 


JSR 
LDA 
STA 
PLA 
PLA 
JMP 


SF48C 
# $00 
* SB9 


SF5B5 
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Read last block in burst mode 


Invert clock low/high signal 

Get byte from bus (block-byte #) 
In Z-P byte number loop counter 
Invert clock low/high signal — 
Read block from disk &process 
Error in memory addr, then RTS 
Put EOF marker code in acc 
Kernal SETMSG: Set sys status 


Clock high on bus and close file 


Clock high signal on serial bus 
Enable all system interrupts 

Get logical file number in acc 

Set carry flag for CLOSE routine 
Kernal CLOSE: Close file 

Set marker for OK 

Return from subroutine 


General "Load error" exit 


Err code for timeout during read 
Kernal SETMSG: Set sys status 
Clock high on bus and close file 
Delete the RTS return address 
From the stack 

Error # for BASIC error: LOAD 
Set marker for error found 
Return from subroutine 


Exit for STOP key interruption 


Clock high on bus and close file 
Set zero-page pointer for current 
Secondary address to #0 

Delete the RTS return addr from 
The stack 

Routine: Exit via break key 
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F4B2: 
F4B5: 
F4Bé6: 
F4B7: 


20 8C 
68 
68 
4c 97 


F4 


F'6 


JSR 
PLA 
PLA 
JMP 


SF48C 


SF 697 
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F4BA: 
F4BC: 
F4BF: 
F4Cl: 
F4C4: 


AY 08 


2C OD DC 


FO FB 
AD OC 
60 


DC 


LDA 
BIT 
BEQ 
LDA 
RTS 


# $08 
$DCOD 
$F 4BC 
SDCOC 
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F4C5: 
F4C7: 
F4CA: 
F4CC: 
F4CE: 
F4D2: 
F4D4: 
F4D7: 
F4D8: 
F4DA: 
F4DC: 
F4DE: 
F4E0: 
F4E3: 
F4E5: 
F4E7: 
F4E9: 
F4EC: 
F4EE: 
F4F1: 
F4F3: 
F4F5: 


AY 08 
2C OD 
FO FB 
AC 0C 
AD 00 
49 10 
8D 00 


DC 


DC 
DD 


DD 


F'] 


F’] 


F’7] 


# $08 
SDCOD 


—$F4C7 


$DCOC 
$DD00 
# $10 
$DD00 


* $93 
SF 4EE 
* SBD 
# $00 
SF7C9 
* SBD 
SF4F1 
# $10 
SF757 
SF4F1 
SF7BE 
* SAE 
SF4FD 
* SAF 
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Exit for error in memory address 


Clock high on bus and close file 
Delete the RTS return addr from 
The stack 

To output of I/O error #10 


Read a data byte in burst mode 


Set control bit for bus interrupt 
Read interrupt control register 
And wait for serial bus interrupt 
Read CIA data buff from ser bus 
Return from subroutine 


Read data block in burst mode 


Set conrol bit for bus interrupt 
Read interrupt control register 
And wait for serial bus interrupt 
Read CIA data buff from ser bus 
Read data port A of CIA 2, 
invert the clock signal 
accordingly, & write to port A 
Copy data buffer into acc 

Test Z-P LOAD/VERIPFY pointer 
For $00 it's a LOAD routine 
Store data byte for verify operat. 
Displace pointer for FETCH rout 
FETCH rout for LSV operations 
Compare data byte with memory 
Both equal, then OK &continue © 
Not equal, then set error marker 
Kernal status: Set system status 
Skip STASH rout (for LOAD) 
STASH rout for LSV operations 
Inc low value for I/O operations 
No overflow occurred, skip 
Increment high value of I/O addr 
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F4F7: 
F4F9: 
F4FB: 
F4FD: 
F4FF: 
F501: 
F502: 


KKKKKEKKKKKEKKKKKKKKEKKKEKKKKKKEKE 


F503: 
F506: 
F508: 
F50B: 


KEKKKKKKEKKKEKEKKEKKEKKEKEKKEKKEKKEKSK 


F50C: 


KHEKKKKKKEKKKEKKKEKEKKKKKEKEKKKKKKKE 


F50F: 
F511: 
FPbL3% 
F515: 
F518: 
FOIA: 
F51C: 
F51E: 


AS 
C9 
FQ 
C6 
DO 
18 
60 


AD 00 DD 


49 


8D 00 DD 


60 


1F 30 55 


A5 
10 
A0 
20 
A5 
FO 
A0 
20 


10 


9D 
1F 
0c 
22 F7 
B7 
16 
177 
22 FF 


LDA 
EOR 
STA 
RTS 


* SAF 
# SEF 
$F502 
* SAS 
SF4C5 


SDD00 
# $10 
SDD00 


* $9D 
SF532 
# SOC 
SF722 
* S$B7 
SF532 
# $17 
SF722 


Check if the high value of I/O 
Addr points to sys vector table 
Yes, then invalid & skip to RTS 
Decrement data byte counter 
Loop until all bytes read 

Set marker for "everything OK" 
Return from subroutine 


Invert clock signal on port A 


Read data port A of CIA 2, 
invert clock signal and 
Write back to port A 
Return from subroutine 


Control sequence to disk in 
reverse order. Send 
U0;CHR$(31) 


<CHR$(31)> <0> <U> 


Output control msg 
SEARCHING FOR <filename> 


Pointer if ctrl messages allowed 
Not allowed, then return 
Displacement to SEARCHING 
Output system/control message 
Get length of filename in acc 
Length equal 0, then return 
Displacement to "FOR" text : 
Output system/control message 


Abacus Software 


C-128 Internals 





KEKEEKKKKEKKKKKKKKAKKKKKKKKKKKKKK 


F521: 
F523: 
F525: 
F527: 
F52A: 
F52D: 
F52E: 
F530: 
FoS2Z: 


A4 B/7 
FO OD 
AO 00 


20 AE F7 
20 D2 FF 


C8 
C4 B7 
DO F5 
60 


LDY 
BEQ 
LDY 
JSR 
JSR 
INY 


“CPY 


BNE 
RTS 


* S$B7 
SF532 
# $00 
SF7AE 
SFFD2 


* $B7 
SF527 
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F533: 
F535: 
F537: 
F539: 
F53B: 


AO 49 
A5 93 
FO 02 
AO 59 


4c 1E F7 


# $49 
* $93 
SF53B 
# $59 
SF71E 


KEKKKKKKEKKEKRKKKRKEKEKKEKKEKKKKKKKKKK 


F53E: 
F540: 
F542: 
F543: 
F545: 
F547: 
F549: 
F54B: 
F54E: 
F550: 
BOOZ: 
F554: 
F556: 
F558: 
F55B: 
F55E: 
F561: 


4c 94 
4c 91 
4C 85 


03 


F6 
F'6 
F'6 


* SAE 
* SAF 


$Cl 


+ + + 


* $C2 


($0332) 


* SBA 
# $01 
SF5C8 
# $04 
SF561 
SF694 
SF691 
SF685 
* S$B7 


$00,X 


$01,X 
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Output filenames 


Get length of current filename 
Length = 0, then skip 

Init displacement to filenames 
Get 1 byte of filename 

Kernal BSOUT: Output a char 
Incr. displ. to start of filename 
Compare with length of filename 
Not equal, then next character 
Return from subroutine 


Output LOADING/VERIFYING 


Displacement to LOADING text 
Get Load-Verify mark from Z-P 
If load (0), then output 
Displacement to "Verify" text 
Output system/control message 


Kernal routine: SAVESP 
Save a memory range 


Store low addr of "store to" 
Store high addr of "store to" 
Z-P addr of "store from" in X 
Get Z-P addr "from" low value 
and store in "store from" low 
Get Z-P addr "from" high value 
And store in "store from" high 
vector to SAVESP ($F54E) 
Load device address in acc 

Is output device the Datassette? 
Yes, then in cassette save routine 
Device address less than 4? 

No, then skip error message 
I/O error #9 (Illegal device #) 
I/O error #8 (Missing filename) 
I/O error #4 (File not found) 
Length of filename in Y-reg 
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F563: FO F6 BEQ SF55B Length=0, output I/O error 8 
F565: AQ 61 LDA # $61 Secondary address to Print/Write 
F567: 85 B9 STA * $B9 In z-page storage for sec. addr 
F569: 20 CB FO JSR $FOCB Test length and sec. address 
F56C: 20 BC F5 JSR $F5BC If allowed, output SAVING 
FS6F: AS BA LDA * SBA Load device address in acc 
F571: 20 3E E3 JSR $E33E Rout LISTN: cmd to serial bus 
F574: A5 B9 LDA * $B9 Load secondary address in acc 
F576: 20 D2 E4 JSR S$E4D2 Rout SECND:sec addr for Listn 
F579: AO 00 LDY # $00 Set Y-reg to 0 as displacement 
F57B: 20 51 ED JSR _ S$ED51 Copy start addr from C1,C2 to 
AD,AC 
F57E: 20 03 E5 JSR $E503 Rout CIOUT: Byte to serial bus 
F581: A5 AD LDA * SAD Store start address high value 
F583: 2003 E5 JSR $E503 Rout. CIOUT: Byte to serial bus 
F586: 20 B7 EE JSR SEEB7 Subtr.: Start address - End addr 
F589: BO 10 BCS S$F59B End address reached, then exit 
F58B: 20 CC F7 £4JSR S$FT7CC Place start address in FETVEC 
F58E: 20 03 E5 JSR $E503 Rout. CIOUT: Byte to serial bus 
F591: 20 B1 FF JSR $FFE1 Kernal STOP: Test STOP key 
F594: FO 1F BEQ $F5B5 If pressed, interrupt SAVESP 
F596: 20 Cl EE JSR S$EEC1 Incr. start addr (6AC,$AD) by 1 
F599: DO EB BNE $F586 Overflow in high byte, then exit 
F59B: 20 26 E5 JSR  $E526 Rout UNLSN: cmd to serial bus 
F59E: 24 B9 BIT * $B9 Test bit 7 of secondary address 
F5A0: 30 11 BMI $F5B3 If bit 7 is set, then skip 
F5A2: A5 BA LDA * SBA Load device address in acc 
F504: 20 3E E3 JSR S$E33E Rout LISTN: cmd to serial bus 
F5A7: A5 BQ LDA * SB9 Load secondary address in acc 
F5A9: 29 EF AND # SEF Get lower nibble of SA 
F5AB: 09 EO ORA # SEO Send via above CLOSE to dev. 
F5AD: 20 D2 E4 JSR $E4D2 Rout SECND:sec. addr for Listn 
F5B0: 20 26 E5 JSR SE526 Rout UNLSN:cmd to serial bus 
F5B3: 18 CLC Set indicator for OK 
F5B4: 60 RTS Return from subroutine 
KKKEKKKKKKKKKKKKKAKKKKKKKKKKKKKE SAVESP exit via break 
F5B5: 20 9E F5 JSR SF59E Close write channel to device 
F5B8: A9 00 LDA # $00 Load acc with $00 as marker 
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a ASS SSS SSS Ss Ss sa SS Suess 


F5BA: 
F5BB: 


38 
60 


KKEEKKKEKKKKKEKKKKKEKKKKKKKKKKKKKK 


F5BC: 
F'5SBE: 
F5C0: 
F5C2: 
F5C5: 


A5 9D 


10 37 


AO 51 
20 22 
4C 21 


F7 
E'5 


LDA 
BPL 
LDY 
JSR 
JMP 


* $9D 
SF5F7 
# $51 
SF722 
SF521 


KREKKKKKKKKEKKEKKKKKKKKKKKKKKRKKKK 


F5C8: 
F5CB: 
F5CD: 
F5D0: 
F5D2: 
F5D5: 
F5D7: 
F5D9: 
F5DB: 
F5DD: 
F5DF: 
F5E0: 
F5E3: 
F5E5: 
F5E8: 
F5EA: 
F5EC: 
F5EE: 
F5FO: 
FOF2: 
F5F5: 
F5F6: 
F5SEF7: 


20 80 
90 8B 
20 E9 
BO 25 
20 BC 
A2 03 
A5 BY 
29 01 
DO 02 
A2 01 
8A 

20 19 
BO 12 
20 18 
BO OD 
A5 BY 
29 02 
FO 06 
A9 05 
20 19 
24 

18 

60 


E9 


E9 


FS 


E9 


BA 


E9 


JSR 
BCC 
JSR 


JSR 


.-Byte 


CLC 
RTS 


SE980 
SF558 
SE9E9 
SF5F7 
SF5BC 
# $03 
* $B9 
# $01 
SF5DF 
# $01 


$E919 
SF5F7 
SEA18 
SF5F7 
x $B9 
# $02 
SF5F6 
# $05 
$E919 

$24 
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Set carry for break/error ind. 
Return from subroutine 


Check if SAVING control 
message can be printed 


Test if control message allowed 
Not allowed, then return 

Displ. to SAVING in Y-reg 
Output "SAVING" message 
And output filename: RTS 


Save routine for datasette 


Cass buffer pointer in X+Y reg 
Page 0,1 not allowed: I/O err #9 
Wait for "record & play" keys 
STOP, then interrupt 

If allowed, output "SAVING" 
Header type3=ML prg (absolute) 
Load secondary address in acc 
Test if bit O set 

Yes, then machine language prg 
Header type 1= BASIC program 
Copy header type in acc 

And write header to tape 

Exit, if stop key pressed 


_ Save program to cassette 


Exit, if stop key pressed 

Load secondary address in acc 
Check if bit 1 set 

Not set, then "OK" exit 

Code for EOT control byte in acc 
And write block to tape 

Skip to $F5F7 

Set indicator for "OK" 

Return from subroutine 
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FSF8: 
F5SFA: 
F5EC: 
FSFE: 
F600: 
F602: 
F603: 
F605: 
F607: 
F609: 
F6OB: 
F60D: 
FO6OF: 
F611: 
F613: 
F615: 
F617: 
F619: 
F61C: 
FO1E: 
F621: 
F623: 
F626: 
F629: 
F62C: 
F62F: 
F631: 
F634: 
F636: 
F638: 
F63B: 


A2 
06 
Al 
02 
AQ 


A2 
O01 
Al 
1A 
A0 
4r 
08 
00 
AO 
Al 
A2 
1D 
0B 
1E 
03 
1F 
1E 
1D 
03 
0C 
36 
07 
05 
36 
BB 


OA 
OA 
OA 
OA 
OA 
OA 


OA 


OA 
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Kernal routine: UDTIM 
Update the internal 24-hour 
clock 


Low byte of 24 hr sys clock +1 
No overflow, skip correction 
Middle byte of 24 hr sys clk +1 
No overflow, skip correction 
High byte of 24 hr sys clock +1 
Set carry for subtraction 

The appropriate values are 
checked by subtraction to see if 
Internal 24-hr system clock is set 
To the clock time 24.00.00 in 
the bytes $A0-$A1-$A2 

In this case the 3 bytes must be 
Reinitialized | 

24-hour sys clock to 00.00.00 
Z-P byte for system clock High 
Z-P byte for sys clock Middle 
Z-P byte for system clock Low 
Check temp storage 24hr clk low 
Not zero, then only low value -1 
Check temp storage 24hr clk mid 
Not zero, only low and mid -1 
Temp storage 24hr clk high -1 
Temp storage 24hr clk mid -1 
Temp storage 24hr clock low -1 
Test PAL / NTSC pointer 

NTSC system if "plus" 
Raster line line-pointer-1 | 
Not yet zero, then skip init. _ 
Sys ptr for raster line at which 
Int. is generated is init. w/ 5 
Uncond. jump to new UDTIM 
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F63D: 
F640: 
F643: 
F645: 
F646: 
F648: 
F64A: 
F64D: 
F650: 
F653: 
F655: 
F658: 
F659: 
F65B: 
F65D: 


KKEKEKKKEKKKKKKKEKKKKKKRKEKKKKKKKKKE 


F65E: 
FO65F: 
F661: 
F663: 


AD 01 
CD 01 
DO F8 


30 13 
BD 
8E 00 
AE 01 
EC 01 
DO F8 
8D 00 
E8 

DO 02 
85 91 
60 


78 

A5 A2 
Aé6é Al 
A4 AO 


DC 
DC 


DC 
DC 
DC 


DC 


SEI 
LDA 
LDX 
LDY 


$DC01 
$DC01 
SF63D 


SF65B 
# SBD 
$DC00 
SDCO1 
$DCO1 
SF64D 
SDCO00 


SF65D 
* $91 


x SA2 
* SA1 
* SAO 


KEKKKKKKKEKKEKRKEKKKEKKKKKKKKKKKKKK 


F665: 
F666: 
F668: 
F66A: 
F66C: 
F66D: 


78 
85 A2 
86 Al 
84 AO 
58 
60 


SEL 
STA 
STX 
STY 
CLI 
RTS 


* SA2 
* SA1 
* SAO 
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Keyboard row selection to 
For RUN/STOP & SHIFT keys 


Read port B for keyboard matrix 
And wait 


Keyboard code to X-reg and 
Skip if RUN/STOP pressed 
Bit map for SHIFT row select 
In port A for matrix line select 
Port B for keyboard matrix cols 
Read and wait 


In port A for matrix line select 
Increment value by 1 

Neither shift key, skip 

Z-P STOP/reset RVS pointer 
Return from subroutine 


Kernal routine: RDTIM 
Read 24-hour system clock 


Disable all system interrupts 
Zero-page byte for sys clock low 
Zero-page byte for sys clock mid 
Z-P byte for system clock high 


Kernal routine: SETTIM 
Set 24-hr system clock 


Disable system interrupts 
Zero-page byte for sys clock low 
Zero-page byte for sys clock mid 
Z-P byte for system clock high 
Enable system interrupts 

Return from subroutine 


Abacus Software 


KKKEKKKKKKKKKEKKEKKKEKKKKKKKKEKKKKE 


F66E: 
F670: 
F672: 
F674: 
F675: 
F678: 
F67A: 
F67B: 


A5 
C9 
DO 
08 
20 
85 
28 
60 


91 
TF 
07 


CC FF 
DO 


LDA 
CMP 
BNE 
PHP 
JSR 
STA 
PLP 
RTS 


* $91 
# STF 
SF67B 


SFFCC 
* $DO 
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F67C: 
FO7E: 
FO6O7F: 
F681: 
F682: 
F684: 
F685: 
F687: 
F688: 
FO8A: 
F68B: 
F68D: 
F68E: 
F690: 
F691: 
F693: 
F694: 
F696: 
F697: 
F699: 
F69A: 
F69D: 
FO9OF: 
F6A1: 
F6A3: 
F6A6: 


AY 
2C 
AQ 
2C 
A9 
2C 
A9 
2C 
A9 
2C 
AY 
2C 
AY 
2C 
AY 
2C 
A9 
2C 
AY 
48 
20 
A0 
24 
50 
20 
68 


O01 


02 


03 


CC FF 


LDA 


-Byte 


LDA 


-Byte 


LDA 


.Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 


-Byte 


LDA 
PHA 
JSR 
LDY 
BIT 
BVC 
JSR 
PLA 


# $01 


# $02 


# $03 


# $04 


# $05 


# $06 


# $07 


# $08 


# $09 


# $10 


SFFCC 


# $00 
* $9D 


SF6AD 
SF722 


S2C 


S2C 


$2C 


S2C 


$2C 


S2C 


$2C 


S2C 


S2C 
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Kernal routine: STOP 
Test for pressed STOP key 


Get Z-P storage for stop flag 
Was STOP key pressed? 

No, return with equal flag 0 
Save status equal flag 

Krnl CLRCH: Reset I/O chnls 
Clear Z-P keyboard buffer pntr 
Get status of equal flag 

Return from subroutine 


Output I/O error message 


I/O error #1 (Too many files) 
Skip to $F681 

I/O error #2 (File open) 

Skip to $F684 

I/O error #3 (File not open) 
Skip to $F687 

I/O error #4 (File not found) 
Skip to $F68A 

I/O error #5 (Device not present) 
Skip to $F68D 

I/O error #6 (Not input file) 
Skip to $F690 

I/O error #7 (Not output file) 
Skip to $F693 

I/O error #8 (Missing filename) 
Skip to $F696 

I/O error #9 (Illegal device #) 
Skip to $F699 

I/O error #10 

Store I/O error code on stack 
Krnl CLRCH: Reset I/O chnls 

Displacement to I/O err message 
Check if sys messages allowed 
Not allowed, then exit 

Rout: output sys/ctrl messages 
Get error code number in acc 
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F6A7: 48 PHA 
F6A8: 09 30 ORA # $30 
F6AA: 20 D2 FF JSR SFFD2 
F6AD: 68 PLA 
F6AE: 38 SEC 
F6AF: 60 RTS 
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F6B0: OD 49 2F 4F 20 45 52 
F6B8: 4F 52 20 A3 

FCBC: OD 53 45 41 52 43 48 
F6C4: 48 47 AO 

F6C7: 46 4F 52 AO 

F6CB: OD 50 52 45 53 53 20 
F6D3: 4C 41 59 20 4F 4E 20 
F6DB: 41 50 C5 

F6DE: 50 52 45 53 53 20 52 
F6E6: 43 4F 52 44 20 26 20 
F6EE: 4C 41 59 20 4F 4E 20 
F6F6: 4150 C5 © 

F6F9: OD 4C 4F 41 44 49 45 
F701: OD 53 41 56 49 4E 47 
F709: OD 56 45 52 49 46 59 
F711: 4E C7 

F713: OD 46 4F 55 4E 44 AO 
F71A: OD 4F 4B 8D 


kk 


52 


49 


50 
54 


45 
50 
54 


C7 
Ad 
49 


KKEEKKKKKEKEKKKEKEKEKKEKKKEKKKKKKKKKK 


F71E: 24 9D BIT # $9D 
F720: 10 QD BPL SE72F 
F722: B9 BO F6 LDA S$F6BO0 
F725: 08 PHP 
F726: 29 7F AND # S7F 
F728: 20 D2 FF JSR SFFD2 
F72B: C8 INY 
F72C: 28 PLP 
F72D: 10 F3 BPL SF722 
F72F: 18 CLC 


rit 
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And store on stack 

Create ASCII value of error code 
Kernal BSOUT: Output a char 
Delete error code from stack 

Set carry flag as marker 

Return from subroutine 


Table of sys & control messages 
Offset to start in parentheses 


<Cr> I/O ERROR #($00) 
<Cr> SEARCHING($0C) 


FOR ($17) 
<Cr>PRESS PLAY ON TAPE 
($1B) 


PRESS RECORD & PLAY ON 
TAPE ($2E) 


<Cr> LOADING ($49) 
<Cr> SAVING ($51) 
<Cr> VERIFYING ($59) 


<Cr> FOUND ($63) 
<Cr> OK <Cr> ($6A) 


Output system/control messages 


Check if output allowed 

No, then exit 

Read byte from message table 
And store on stack 

Mask out bit 7, no RVS chara 
Kernal BSOUT: Output a char 
Set displ. to next character 
Get character from stack 

Bit 7 set is end marker 

Clear carry as "output" marker 


Abacus Software 


F730: 60 RTS 


KRKEKKKKKKKKEKKKKKKRKKEKKKKKKKKEKK 


F731: 85 B7 STA * $B7 
F733: 86 BB STX * SBB 
F735: 84 BC STY * SBC 
F737: 60 RTS 


KREEKKKKKKKKKKEKKEKEKKEKKKKKKKKKKKK 


F738: 85 B8 STA * SB8 
F73A: 86 BA STX * SBA 
F73C: 84 BY STY * SBQ 
F73E: 60 RTS 


KRHEKKKKKKKKKKEKEKEKKKEKKKKKKKKKEKREKK 


F73F: 85 C6 STA * SC6 
- F741: 86 C7 STX * $C7 
F743: 60 RTS 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


F744: AS BA LDA * SBA 
F746: C9 02 CMP # $02 
F748: DO OB BNE $F755 
F74A: AD 14 0A LDA S$0A14 
F74D: 48 PHA 
F74E: A9 00 LDA # $00 
F750: 8D 140A STA $0A14 
F753: 68 PLA 
F754: 60 RTS 
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Return from subroutine 


Kernal routine: SETNAM 
Set parameters for filename 


Z-P byte for length of filename 
Z-P byte for filename addr low 
Z-P byte for filename addr high 
Return from subroutine 


Kernal routine: SETLFS 
Set the logical file parameters 


Z-P byte for logical file number 
Z-P byte for device address 
Z-P byte for secondary address 
Return from subroutine 


Kernal routine: SETBNK 


Bank num for current LSV call 
Bank num for current filename 
Return from subroutine 


Kernal routine: READST 
Read system status word 


Load device address in acc 
RS-232 addressed 

No, then get normal status 
Get RS-232 status 

And store on stack 

Load acc with $00 in RS-232 
Bring status as evrything OK 
Get RS-232 status from stack 
Return from subroutine 
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KKEKKKKEKKKKKKKEKEKKKKKKKK KKK KK 


F755: A5 90 LDA * $90 
F757: 05 90 ORA * $90 
F759: 85 90 STA * $90 
F75B: 60 RTS 


KKEKEKKKKKKKKRKEKKKKEKKKKKRKKKKKKEKK 


F75C: 85 9D STA 
F75SE: 60 RTS 


* $9D 


KKKKKKKKEKKEKKEKKKEKKEKKKKKEKKKKKKKE 


F75F: 8D OE OA STA S$0A0E 
F762: 60 RTS 


KKKKKKKEKKKEKKEKKKKEKEKEKEKKKKKKKK 


F763: 90 06 BCC $F76B 
F765: AE 07 OA LDX $0A07 
F768: AC 08 OA LDY $0A08 
F76B: 85 07 OA STX $0A07 
F76E: 8C 08 OA STY $0QA08 


F771: 60 RTS 


KEEKKKKEKKKEKKEKKKKKEKEKEKKKKKKKKKKE 


F772: 90 06 BCC SF77A 
F774: AE 05 OA LDX S$O0A05 
F777: AC 06 OA LDY SOA0G6 
F77A: 8E 05 OA SsTX §$0A05 
F77D: 8C 06 OA STY S$0A06 
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Match status to system status 


Get system STATUS in acc 
Combine acc with system status 
Put in zero page for status 
Return from subroutine 


Kernal routine: SETMSG 
Allow system/control messages 


Z-P byte for system/control msg 
Return from subroutine 


Kernal routine: SETTMO 
In order to allow timeout in 
IEEE bit 7 in acc to 1 


Acc contents in IEEE timeout 
flag. Return from subroutine 


Kernal routine: MEMTOP 
Set the upper memory end 
pointer 


Carry 0 = set / Carry 1 = read 
Low addr RAM end in sys bank 
High addr RAM end in sys bank 
Low addr RAM end in sys bank 
High addr RAM end in sys bank 
Return from subroutine 


Kernal routine: MEMBOT 
Set the lower memory end 
pointer 


Carry 0 = set / Carry 1 = read 
Low addr RAM start in sys bank 
Hi addr RAM start in sys bank 
Low addr RAM start in sys bank 
Hi addr RAM start in sys bank 
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F780: 60 RTS 


KEKKKKKKKKKKKKKKEKKKKKEKKKKEKKKK 


F781: A2 00 LDX # $00 
F783: AQ DO LDY # $DO0 
F785: 60 RTS 


KEKKEKKKKKKKEKEKEKRKKKKEKEKEKEKKKKKEER 


F786: 98 TYA 

F787: A6 98 LDX * $98 
F789: CA DEX 

F78A: 30 OF BMI SF79B 
F78C: DD 76 03 CMP $0376,X 
F78F: DO F8 BNE SEF789 
F791: 2012 F2 JSR $F212 
F794: AA TAX 

F795: A5 B8 LDA * SB8 
F797: A4 BY LDY * S$B9 
F799: 18 CLC 

FJ9A: 60 RTS 


KEKKKKKKKKKEKKKEKEKEKKKKKKKKKKKKKE 


F79B: 38 SEC 
F79C: 60 RTS 


KKEEKEKKKKKKKKKKKKKKKKKKKKAKKKKKE 


F/9D: AA TAX 

F79E: 20 02 F2 JSR $F202 
F7A1: FO EE BEQ SF791 
F7A3: DO F6 BNE SF79B 
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Return from subroutine 
Kernal routine: IOBASE 


Pass address low of I/O range 
Pass address high of I/O range 
Return from subroutine 


Kernal routine: LKUPSA 
Search in SA table for SA 


Put the SA to search for in acc 
Get number of open files 
Decrement by 1, used as index 
All comparisons negative, exit 
Cmp with hi byte from SA table 
Not found, next comparison 
Get LFN,DA,SA from table 
correspomding to X 

Copy found DA into X 

Get logical file number in acc 
Get secondary address in Y 
Carry clear = marker for found 
Return from subroutine 


Exit from LKUPSA if not found 


Carry set = marker for not found 
Return from subroutine 


Kernal routine: LKUPLA 
Search in LEN table for LFN 


Store LFN value to search in X 
Set status OK, search LFN table 
Found, update the z-page, exit 
Not found, exit with err marker 
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KKEKEKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


F7A5: 
F7A8: 
F7AA: 
E'/7AB: 


BD FO F7 
29 FE 
AA 


4C FO 03 


LDA 
AND 
TAX 
JMP 


# SFE 


($03F0 


SE7F0,X 


KKKKKKKKKEKKKKEKKKKKKEKKKEKEKKKKKKE 


F7AE: 
F7B1: 


F7B3: 
F7B5: 


F7B8: 
F7BB: 


8E 35 OA 
Ao C7 


AQ9 BB 


20 DO F7 


AE 35 OA 
60 


STX 
LDX 


$0A35 
* $C7 


LDA # SBB 
JSR $F7D0 


LDX 
RTS 


S0A35 


KKEEKKKKKKEKKKEKEKEKKKKKKKKKKKKKKK 


F7BC: 
F7BE: 
FUBE: 
F7C1l: 
F7C4: 
F7C6: 


A2 AC 

2C 

A2 AE 

8E BY 02 
A6 C6 

4C DA F7 


LDX # SAC 
-Byte $2C 
LDX # SAE 
STX $02B9 
LDX * SC6 
JMP SF7DA 


KKKKKKKKKKKKEKKEKEKEKKEKKKKKEKRKKEKK 


F7C9: 
E7CB: 
F7CC: 
F/7CE: 


A9 AE 
2C 

AY AC 
A6 C6 


LDA # SAE 


-Byte $2C 
LDA # SAC 
LDX * $C6é 
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Kernal routine: DMA-CALL 


Get x indexed value-config table 
Mask out bit 0 -I/O, DOO00-DFFF 
Copy config value to X-reg 
Jump to low bank DMA routine 


FETCH for chars from filename 


Store contents of X-reg 

Bank # for current filename 
(BB,BC) 

Put in acc $BB for FETVEC 
Rout. INDFET: 
LDA(fetvec), Y any bank 

Get old contents of X-reg back 
Return from subroutine 


STASH routine for LSV 
operations 


Pointer to LSV I/O addr 1 (lo) 
Skip to $F7C1 

Pointer to LSV I/O addr 2 (lo) 
Put contents X-reg in STATVEC 
Bank # of the current LSV call 
Rout. INDSTA: 

STA(stavec),Y any bank 


FETCH routine for LSV 
operations 


Pointer for LSV I/O addr 1 (lo) 
Skip to $F7CE 

Pointer to LSV I/O addr 2 (lo) 
Bank # of current LSV calls 
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KHKKKKKKKKKKKKKKKKKKKKEKKKKKK KKK Preparation for FETCH routine 


F7D0: 8D AA 02 STA S$O2AA Place acc contents in FETVEC 
F7D3: BD FO F7 LDA SF7FO,X Load config value determined 
F7D6: AA TAX By X from table and to X-reg 
F7D7: 4C A2 02 JMP $02A2 FETCH Rout.: LDA any bank 
KAEKKKKKKKKKKKKKKKKEKKKKEKKKK KEK Preparation for STASH routine 
F7DA: 48 PHA Store acc contents for STA cmd 
F7DB: BD FO F7 LDA SF7F0,X Load config value determined 
F7DE: AA TAX By X from table and to X-reg 
F7DF: 68 PLA Load acc contents for STA cmd 
F7EO: 4C AF 02 JMP SO2AF STASH rout. :STA in any bank 


KKKKKKKKKKKKKKKKKKKKEKKK KKK KK KK Preparation of CMPFAR routine 


F7E3: 48 PHA Store acc contents for compare 

F7E4: BD FO F7 #£4.LDA SEF7FO,X Get the config value determined 

F7E7: AA TAX by X from the table 

F7E8: 68 PLA Get acc contents for compare 

F7E9: 4C BE 02: JMP $02BE CMPARE routine: CMP with 
any bank 

KHEKKKKKEKKKKKKKKKKKKKKKEKKKKKKKE Kernal routine: GETCFG 
Load X with defined config 
value 

F7EC: BD FO F7 LDA S$F7FO0,X Load X with defined config 

F7EF: 60 RTS value. Return from subroutine 
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KAEKKKKKKKKEKKEKKKKEKEKKKKKKKKK 


FT7EFO: 
FUF1: 
FVF2: 
F7EF3: 
FUE4: 


FUEF5: 
F7EF6: 
FUEF7: 
FU7EF8: 


FT7E9: 
FUFA: 
F7EFB: 
FU7FC: 
F7FED: 
FU7FE: 
FUFF: 


3F (3 
7E (3 
BF (% 
FF (% 
16 (3 
56 (% 
96 (3 
D6 (% 
2A (3 
6A (% 
AA (3 
EA (3 
06 (% 
OA (3 
O01 (3 
00 (% 


0011 
0111 
1011 
1111 
0001 


0101 
1001 
1101 
0010 


0110 
1010 
1110 
0000 
0000 
0000 
0000 


1111) 
1111) 
1111) 
1111) 
0110) 


0110) 
0110) 
0110) 
1010) 


1010) 
1010) 
1010) 
0110) 
1010) 
0001) 
0000) 


KEKKKKKEKKKEKKEKKKEKKKEKEKKEKEKKEKKKKK 


F800: 
F803: 
F806: 
F807: 
F809: 
F80C: 


AD 00 FF 
8E 00 FF 
AA 

Bl FF 

8E 00 FF 
60 


LDA 
STX 


SPF00 
SFF0OO 


TAX 


LDA 
STX 
RTS 


(SFF) ,Y 
SFFOO 


KEKKKKKKKKKKKKEKKEKKKEKKKKKKKEKE 


F80D: 
F80E: 
F811: 
F814: 
F815: 


48 
AD 00 FF 
8E 00 FF 
AA 
68 


SFFOO 
SFF00 
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Configuration table for 
all "far" operations 


Bit 0: O= I/O area $D000-$DFFF 
1 =RAM/ROM area 
Bit 1: O=ROM in $4000 - $7FFF 
1 = RAM in $4000 - $7FFF 
Bit 3,2: 00 = System ROM 
$8000-$BFFF 
01 = Internal function ROM 
10 = External function ROM 
11 = RAM area 
Bit 5,4: 00 = System ROM 
$C000-$FFFF 
01 = Internal function ROM 
10 = External function ROM 
11 = RAM area 
Bit 7,6: 00 = RAM bank 0 
01 = RAM bank 1 
10 = RAM bank 2 (bank 0) 
11 = RAM bank 3 (bank 1) 


ROM copy of FETCH routine 
($02A2) 


Save current config value in A 
Set new config value via X 
Transfer old value to X 

'!! LDA (Fetvec) ,Y 

Restore old configuration 
Return from subroutine 


ROM copy of STASH routine 
($02AF) 


Save acc contents for STA 
Save current config value in A 
Set new config value via X 
Transfer old value to X 

Get the STA value back 
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F816: 
F818: 
F81B: 


91 FF 
8E 00 FF 


60 


STA (SFF),Y 
STX $FFOO 
RTS 


KKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKK 


F81C: 
F81D: 
F820: 
F823: 
F824: 
F825: 
F827: 
F82A: 


8E 
60 


00 FF 
00 FF 


FF 
00 FF 


SFFO0 


SFF00 


(SFF),¥ 


SFFO0 


KKEKKKKKKKEKKKKEKKKKKKEKKEKKKKKKKK 


F82B: 
F82E: 
F830: 
F832: 
F834: 
F835: 
F836: 
F838: 
F839: 
F83B: 
F83D: 
F840: 


20 
85 
86 
84 
08 
68 
85 
BA 
86 
AY 
8D 
60 


B3 02 
06 
07 
08 


05 


09 


00 
00 FF 


JSR 
STA 
STX 
STY 
PHP 
PLA 
STA 
TSX 
STX 
LDA 
STA 
RTS 


SO02E3 


* $06 
* $07 
x $08 


* $05 
* $09 


# $00 
SFF00 


KKEEKKKKEKKKKKKKRKKKKKKRKKKKKKKKEKEK 


F841: 
F843: 
F845: 
F846: 
F847: 


A2 
B5 
48 
E8 
E0 


00 
03 


03 


# $00 


* $03,X 


# $03 


383 


'tf STA (Stavec) ,Y 
Restore old config value 
Return from subroutine 


ROM copy of CMPARE routine 
($02BE) 


Save comparison value for CMP 
Save current config value in A 
Set new config value via X 
Transfer old value to X 

Get CMP comparison value back 
!!! CMP (Cmpvec) ,Y 

Restore old config 


Return from subroutine 


ROM copy of JSRFAR routine 
($02CD) 


JMPFAR rout.:JMP to any bank 
Save acc in Z-P acc storage 

Save X-reg in Z-P X-reg storage 
Save Y-reg in Z-P Y-reg storage 
Save processor status on stack 
Get status in acc 


_ And save in Z-P status storage 


Stack pointer via X 

Save in Z-P stack ptr storage 
Load configuration reg with $00 
And enable all system ROMs 
Return from subroutine 


ROM copy of JMPFAR routine 
($02E3) 


In this loop, the values placed in 
Zero page (bytes $03-$04-$05) 
for the program counter and 
processor status are placed on t 
the stack. They are required for 


Abacus Software 


F849: 
F84B: 
F84D: 
F850: 
F853: 
F855: 
F857: 
F859: 


90 
A6 
20 
8D 
A5 
A6é 
A4 
40 


F8 
02 
6B FF 
00 FF 
06 
07 
08 


BCC 
LDX 
JSR 
STA 
LDA 
LDX 
LDY 
RTI 


SF843 
* $02 
SFF6B 
SFF00 
* $06 
* $07 
* $08 


KKEKEKKKKKKKEKKEKEKKKKEKRKKKEKKKKKKKEK 


F85A: 
F85D: 
F860: 
F863: 
F866: 


AE 
8C 
8D 
8E 
60 


00 FF 
O01 DF 
00 FF 
00 FF 


LDX 
STY 
STA 
STX 
RTS 


SFFO0O 
SDFO1 
SFF0O0 
SFF00 


KKKKKKKKKKKKKKEKEKKKKKEKKKKKKEKKK 


F867: 
F868: 
F86A: 
F86D: 
F870: 
F873: 
F875: 
F877: 
F87A: 
F87C: 
F87E: 
F881: 
F883: 


F886: 
F889: 
F88B: 
F88C: 
F88E: 
F890: 


03 

CO OA 
CO OA 
Cl OA 
11 

00 

BC E2 
03 
04 
CO 
02 
CD 02 


E2 


CO 
B2 


OA 


08 
30 
BF 


SEI 
LDX 
STX 
LDX 
LDA 
BEQ 
LDY 
LDA 
STA 
STY 
LDA 
STA 
JSR 


DEC 
BPL 
CLI 
LDX 
LDA 
STA 


# $03 
SOACO 
SOACO 


SOAC1,X 


SF886 


# $00 


SE2BC,X 


* $03 
x $04 


SE2C0,X 


* $02 
$02CD 


SOACO 
SF86D 


# 308 
# $30 
* SBF 
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the RTI at the end of the routine 
Load bank pntr for config displ. 
Kernal GETCFG: config value 
from table. Set config register 
Get zero-page acc storage 

Get zero-page X-reg storage 
Get zero-page Y-reg storage 
Jump to prg counter address 


Copy of routine in ($03F0) 


Get configuration regi in X-reg 
Set DMA controller ctrl register 
Load config register with acc 
Load config register with X-reg 
Return from subroutine 


Kernal routine: PHOENIX 
Old cold-start routines 


Disable system interrupts 
Initialize bank and displ. pntrs 
For external card to #3 

Get displacement pntr in X-reg 
Check ID table for cart. spaces 
Table entry = 0: not "logged in" 
Set entry address low to $00 
Get entry addr high from table 
Store entry addr high in PC hi 
Store entry address low in PC lo 
Get bank value from bank table 
Store it in Z-P bank storage 
JSRFAR rout.: JSR to any bank 
+RTS 

Dec. displacement pointer by 1 
Check all 4 cartridge areas 
Enable system interrupts 
Device addr for boot-load (8) 
Load acc with character <0> 
Zero-page byte for serial buffer 
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F892: 
F894: 
F895: 
F898: 
F89A: 
F89C: 
F89E: 
F89F: 
F8Al1: 
F8A2: 
F8A4: 
F8A5: 
F8A7: 
F8A9: 
F8AC: 
F8AF: 
F8BO: 
F8B2: 
F8B4: 
F8B7: 
F8B9: 
F8BB: 


F8BE: 
F8CO: 
F8C2: 
F8C4: 
F8C7: 
F8C9: 
F8CB: 
F8CD: 
F8D0: 


F8D3: 
F8D5: 
F8D7: 
F8D9: 
F8DB: 
F8DE: 
F8E0: 


F2 


FA 
O01 


01 


F7 


F7] 


F7 
FF 


F'7] 
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Set device address for disk 8 


‘Copy device addr (8) into acc 


Set standard I/O devices 
Init. length cntr for boot-load 
Filename with #0 
Set sector # for boot load ($00) 
Increment init. counter by 1 
Set track # for boot load ($01) 
Increment Y loop register by 1 
Loop 256 times, until reg is zero 
Increment X loop register by 1 
Loop 256 times, until reg is zero 
Displace pointer for DOS buffer 
Get char of DOS BOOT cmd 
And copy into DOS string buffer 
Dec. displacement pointer by 1 
Loop until 13 chars transferred 
Get drive # from Z-P storage 
And put in DOS buffer 
Bank # for current LSV call 
Bank # for current filename 
Routine SETBNK: Bank for 
LSV+filename 
Set length of filename to 1 
Addr low of filename (=FA15) 
Addr of high filename ("I") 
Routine SETNAM: Set filename 
Logical file number in acc (0) 
Secondary addr in Y-reg 
Set device addr in X-reg 
Routine SETLFS: Set file param 
Kernal OPEN: Open file 
0,8,15,"T" 
Error encoutnered, end boot load 
Set length of filename to 1 
Addr low of filename (=FA16) 
Add high of filename (‘'#") 
Routine SETNAM: Set filename 
Logical file number in acc (13) 
And set as sec. address (13) 
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SSS SSS SSS SSS ss uh Ss SSG Utnnemnnnns 


F8E1: 
F8E3: 
F8E6: 


F8E9: 
F8EB: 
F8EE: 
F8FO: 
F8EF2: 
F8E4:; 
F8F6: 
F8E9:; 
F8FB: 
F8FE: 
FOOL: 
F903: 
F904: 
F906: 
F908: 


Aé6 
20 
20 


90 
4c 
A9 
A0 


DO 
E8 
E0 
90 
20 


BA 
38 F7 
CO FF 


03 
8B F9 


D5 F9 


00 OB 
C4 E2 


03 
F3 
17 FA 


x SBA 
SF738 
SFFCO 


SF8EE 
SF98B 
# $00 
# SOB 
* SAC 
* SAD 
SF9D5 
# $00 


S0B00,X 
SE2C4,X 


SF8EB 


# $03 
SF8FB 
SFA17 


KEKKKKKKEKKKKKKKKEKKKKKKKKKKKKKE 


F9OB: 
F913: 


OD 42 4F 4F 54 49 4E 47 


20 


00 


KEEKKKKKKKEKEKEKKKKKKKKKKKKKKKKK 


F915; 
F918: 
FOIA: 
FOB: 
F91D: 
FOILF: 
F922; 
F924; 
F927: 
F928: 
F92A: 
F92C: 


BD 
95 
E8 
EO 
90 
BD 
FO 
20 
E8 
DO 
86 
20 


00 OB 
AY 


07 
F'6 
00 OB 
06 
D2 FF 


F5 
9B 
17 FA 


LDA 
STA 
INX 
CPX 
BCC 
LDA 
BEQ 
JSR 
INX 
BNE 
STX 
JSR 


SOB00,X 
* SA9,X 


# $07 
SF915 


$0B00,X 


SF9O2A 
SFFD2 


SF91F 
* S9E 
SFA17 
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Get device address in X-reg 
Routine SETLFS: Set file param 
Kernal OPEN: open file 
13,8,13,"#" 
All clear, then continue boot load 
Initialize disk, then RTS 
Initialize the 2-byte zero-page 
Pointer ($AC-$AD) with the 
Start address of the 
System cassette buffer ($0B00) 
Load start sctr 01 00 in cass buff 
Clear loop and displ. pointer 
Check the first 3 bytes of the 
Start sector read from the disk 
Into the cassette buffer for the 
Auto-start code (<C><B><M>). 
If found, then it is a boot prgm 


Kernal PRIMM: Output string 


Kernal constant for BOOTING 
message 


<CR> <B> <O> <O> <T> <I> <N> <G> 
<space> 


Set pointer and boot status 


Get 4 address load pointers from 
BOOT sector at address $0B03 
and init. the 2 zero-page address 
Pointers in $AC-$AD/ $AE-$AF 
Loop until pointers are loaded 
Get output char from cass buffer 
The value $00 is the end marker 
Kernal BSOUT: Output a char 
Incr displ. to cassette buffer by 1 
Uncond. jump to char output 
Store displ. to cassette buffer 
Kernal PRIMM: Output string 
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KKKKKKKKKKKEKRKEKKKEKRKKRKEKKKKKKKER 


FQO2QF: 


2ZE 2E 2E OD 00 


KKEKKKKKKKKKKEKKKKKKKKKEKKEKKKKEKK 


F932: 
F935: 
F938: 
F9O3A: 
F93C: 
F93E: 
F941: 
F943: 
F945: 
F948: 
F94A; 
FQO4B: 
F94D: 
F94E: 
F951: 
F953: 
F954: 
F956: 
F958: 
F9O5A: 
F95D: 
FO5E: 
F960: 
F963: 
F965: 
F967: 
F969: 
F9OA: 


FO6B: 


F96C: 


F9O6E: 


F970: 
F973: 


F975: 


OD 
AE 
A5 
FO 
C6 
20 
E6 
DO 
20 
Aé6é 
2C 
E6 
E8 
BD 
DO 
E8 
86 
A6é 
A9 
9D 
CA 
A5 
9D 
86 
A6 
FO 
B8 
E8 
8A 
Ao 


00 AS 
85 Cé 
AF 
09 
F9 


F9 


00 OB 


00 OB 


00 OB 


F7] 


ORA S$A500 
LDX S$C685 
LDA * SAF 
BEQ $F945 _ 
DEC * SAF 
JSR S$F9B3 
INC * SAD 
BNE SF938 
JSR SF98B 
LDX * S9E 
-Byte $2C 
INX * SOF 
INX 

LDA $0B00,X 
BNE S$F94B 
INX 

STX * $04 
LDX * S9E 
LDA # S3A 
STA $0BO00,X 
DEX 

LDA * SBF 
STA $0B00,X 
STX * S9E 
LDX * S9F 
BEQ SF97E 
INX 

INX 

TXA 

LDX * S$9E 
LDY # SOB 
JSR $F731 
LDA # $00 
TAX 
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BOOTING message constants 
<.> <.> <.> <CR> 
BOOT routine 


Bank pntr BOOT sector in bank 
Copy pointer for STASH routine 
Get cntr for #of BOOT blocks 
All BOOT blocks read, then exit 
Decr. boot block counter by 1 
Load next track/sector from disk 
Increment load addr high by 1 
Jump to read next block 
Initialize disk to BOOT 
Displacement to cassette buffer 
Skip to $F94D 

Incr. filename length counter 
Set displ. to char after O code 
Get char after 0 code (filename) 
Not zero, continue read 

Set displ. to char after 0 code 
And place in PC lo pointer 
Displ. to char before filename 
Replace 0 with <:> 

And put in front of filename 

Set displ. to character before <:> 
ASCII character of drive spec 
Put <0:xxxx> front of filename 
Save low address of filename 
Get length of filename 

No filename present, then skip 
Incr. filename length ptr by 2 
Because <Q:> included in count 
Copy length of filename to A 
Get address low of filename 

Set address high of filename 
Routine SETNAM: Set filename 
Initialize acc & X-reg with $00 
for the SETBNK routine 
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F976: 


F979: 
F97B: 
FOTE: 
F980: 
F982: 
F984: 


F986: 


F989: 
F9O8A: 


20 


AY 
20 
AY 
85 
A9 
85 
20 
18 
60 


3F F7 


00 
69 F2 
OB 
03 
OF 
02 
CD 02 


JSR 


LDA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
CLC 
RTS 


SE73F 


# $00 
SF269 
# SOB 
x $03 
# SOF 
* $02 
$02CD 


Routine SETBNK: bank for 
LSV+filename 

Set acc as "LOAD" marker 
Jump to kernal LOAD vector 
Set the Z-P storage for PC hi 
To $0B (cassette buffer) 

Set the Z-P pointer to the value 
$OF (system ROM) 

JSRFAR rout.: JSR bank +RTS 


_ Clear carry for OK indicator 


KKEKEKKEKKKKKKKEKKEKKKKEKKKKKKKKKEKE 


F98B: 


F98C: 


F98D: 
F990: 
F992: 
F993: 
F996: 
F998: 
F99B: 
F99D: 
F9OF: 
F9A2: 
F9A4: 
F9OA7: 
FOAA: 
F9AC: 
F9AD: 


F9BO: 
FOB1: 
F9B2: 


08 
48 
20 
AY 
18 
20 
A2 
20 
BO 
AQ 
20 
AQ 
20 
20 
AY 
38 
20 
68 
28 
60 


CC 
OD 


FF 


C3 
00 
C9 
OA 
55 
D2 
49 
D2 
cc 
00 


FE 


FF 


FF 
FE 


FF 


C3 FF 


PHP 
PHA 
JSR 
LDA 
CLC 


SFFCC 
# $OD 


SFFC3 
# $00 
SFFC9 
SF9AT 
# $55 
SFFD2 
# $49 
SFFD2 
SFFCC 
# $00 


SFFC3 
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Return from subroutine 
Floppy init. for BOOTING 


Save processor status on stack 
Save acc contents on stack 
Kernal CLRCH: Reset I/O chnls 
Close logical file number (13) 
Set carry to "everything OK" 
Kernal CLOSE: Close file 

Set logical file (0) to output 
Kernal CKOUT: Set output chnl 
If error, then close again 

Load acc with character <U> 
Kernal BSOUT: Output a char 
Load acc with character <I> 
Kernal BSOUT: Output a char 
Kernal CLRCH: Reset I/O chnls 
Close logical file number (0) 
Set carry to "everything OK" 
Kernal CLOSE: Close file 

Get acc contents from stack 

Get old processor status 

Return from subroutine 
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KKEKKKKKKKKEKRKEKKEKKEKKKEKEKKKKEKEKEKKK 


F9B3: 
F9B5: 
F9OB6: 
F9B8: 
FOBA: 
F9BC: 
F OBE: 
F9CO: 
FOCI: 
F9C4: 
F9C7: 
F9OCA: 
F9CC: 
F9OCEF: 
F9D2: 
F9D5: 
F9D7: 
FODA: 
F9DC: 
FODF: 
FOR2: 
F9E3: 
FOES: 
FOER8: 
F9OEA: 
F9ED: 
FOEF: 
F9OFZ2: 
FOFS: 
FOF 6: 
FOF8: 


C2 


15 
04 


00° 


Ci 
C2 


FB 
00 
O01 
Cl 
FB 
03 
04 
00 
C9 
OC 
00 
D2 


EF] 
CC 
OD 
C6 
00 
CF 
BC 


EF] 


Ce 


F9 
O01 
O01 
F9 
O01 
O01 
FF 
O01 
FF 
FF 
FF 
FF 


EF] 


FF 


* $C2 


# $15 
SF OBE 
# $00 
* $Ccl 
x $C2 


SFOFB 
$0100 
$0101 
* $Cl 
SF9OFB 
$0103 
$0104 
# $00 
SFFC9 
# $OC 


$0100,X 


SFFD2 


SF9DC 
$FFCC 
# SOD 
SFFC6 
# $00 
SFFCF 
SF7BC 


SF 9OEF 
SFFCC 
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Reset track and sector in DOS 
output buffer and load sectpr 


Get sector # from z-page storage 
Increment sector by 1 

Check for valid sector number 
Sector # less than 21, then OK 
Load value for sector number 0 
Increment track number by 1 
Reset zero-page sector number 
Copy sector number in acc an 
Convert sector to 2-byte ASCII 
Put sector # low in DOS buffer 
Put sector # high in DOS buffer 
Load acc with track # from Z-P 
Convert track to 2-byte ASCH 
Put track # low in DOS buffer 
Put track # high in DOS buffer 
Set logical file #0 fro CKOUT 
Kernal CKOUT: Set output chnl 
Output 13 char from DOS buffer 
Get 1 char from DOS output buf 
Kernal BSOUT: Output a char 
Loop counter to DOS buffer -1 
Loop until 13 characters output 
Kernal CLRCH: Reset I/O chnils 
Set logical file (13) to input 
Kernal CHKIN: Set input chnl 
Displ. for STASH routine to #0 
Kernal BASIN: Read a character 


_STASH routine for LSV operat. 


Incr. STASH displ. pointer by 1 
Loop until 256 bytes read 
Kernal CLRCH: Reset I/O chnls 


Abacus Software C-128 Internals 


KKKAKKKKKKKKKKEKKEKKKKEKKEKKKKKKKKE Process acc contents as 2-byte 
ACSTI(X=hi,A=lo) (only to#99) 


FOFB: A2 30 LDX # $30 ASCII value for char <0> to X 

FOFD: 38 SEC Set carry for subtraction 

FOFE: E9 OA SBC # SOA Subtract dec 10 from acc 

FA00: 90 03 BCC S$FA05 Carry clear, then underflow, exit 

FAO2: E8 INX Increment ASCII hi char by 1 

FAO3: BO F9 BCS S$F9FE Unconditional jump 

FAO5: 69 3A ADC # $3A Underflow, create ASCII lo 

FAO7: 60 RTS Return from subroutine 

KHREKEKEKKKEKEEKKKEKKKKKRKKKRKEKKKRKEKKEEKK Kernal constant for 
BOOT-LOAD 


FAOQ8: 30 30 20 31 30 20 30 20 <0> <0> <> <l><0><><0><> 
FA1O0: 33 31 3A 31 55 49 23 <3> <1> <:> <1> <U> <I> <#> 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Kernal routine: PRIMM 
Output the test following JSR 


FA17: 48 PHA Store acc contents on stack 
FA18: 8A TXA Save current X-reg contents on 
FA19: 48 PHA Stack via acc 

FAIA: 98 TYA Save current Y-reg contents on 
FAIB: 48 PHA Stack via acc 

FAIC: AO 00 LDY # $00 Load displacement pntr with $00 
FALE: BA TSX Load stack pointer into X 

FAIF: FE 04 01 INC $0104,X Lo byte of RTS addr in stack+1 
FA22: DO 03 BNE S$FA27 No overflow, skip 


FA24: FE 05 01 #§.INC $0105,xX Hi byte of RTS addr in stack +1 
FA27: BD 04 01 LDA $0104,xX Put lo byte of RTS addr in stack 


FA2A: 85 CE STA * SCE In Z-P (for post-indexed addr) 
FA2C: BD 05 01 LDA $0105,X Put hi byte of RTS addr in stack 
FA2F: 85 CF STA * SCF In Z-P (for post-indexed addr) 
FA31: Bl CE LDA (SCE) ,Y Get byte from RTS addr + Y-reg- 
FA33: FO 05 BEQ SFA3A $00 = end marker, then exit rout 
FA35: 20 D2 FF JSR SFFD2 Kernal BSOUT: Output char 
FA38: 90 B4 BCC SFAIE No error, then next character 
FA3A: 68 PLA Get a byte from the stack and 
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FA3B: 
FA3C: 
FA3D: 
FA3E: 
FA3F: 


A8 
68 
AA 
68 
60 


TAY 
PLA 
TAX 
PLA 
RTS 


KKEKKKKKKKKKKKEKKKEKKKEKEKKRKEKKKKEKK 


) 


FA40: 
FA41: 
FA43: 
FA46: 
FA49: 
FA4B: 
FA4E: 
FA51: 
FA53: 
FA56: 
FA59: 
FASC: 
FASF: 
FA62: 


D8 
AY 
8D 
AC 
30 
20 
20 
DO 
20 
20 
20 
6C 
20 
AC 


7F 
OD 
OD 
14 
3D 
El 
OC 
56 
09 
00 
00 
05 
33 


DD 
DD 


F6 
FF 


EQ 
El 
CO 
OA 
E8 
FF 


CLD 
LDA 
STA 
LDY 
BMI 
JSR 
JSR 
BNE 
JSR 


# STF 
SDDOD 
SDDOD 
SFA5F 
SF63D 
SFFE1 
SFASF 
SE056 
$E109 
$c000 


(S$OA00) 


SE805 
SFF33 


KAEEKKKEKKKKKEKKEKKKKKKKKKEKKKKKKKEK 


FA65: 
FA66: 
FA69: 
FA6B: 
FAOE: 
FA71: 
FA74: 
FA77: 
FA78: 
FATA: 
FA7D: 


D8 
20 


24 
12 
F8 
DO 
OD 
04 


03 
06 
33 


C0 


FS 
EE 
DC 
OA 


40 
FF 


CLD 
JSR 
BCC 
JSR 
JSR 
LDA 


Restore old contents of Y-reg 
Get a byte from the stack and 
Restore old contents of X-reg 
Restore old acc contents 
Return from subroutine 


NMI routine 


Reset decimal mode 

Set NMI marker 

Clear NMI possibility 

Read and clear flags 

Check if RS-23 is active 

Read shift RUN/STOP 
Kernal STOP: Test STOP key 
Not pressed, then skip I/O init 
Stand.vctrs for I/O+ interrupt 
Initialize I/O 

Init I/O and clear screen 
BASIC warm-start-entry($4003) 
Jump to NMI rout. for RS-232 
Return to the IRQ calling routine 


IRQ routine 


Reset decimal mode 

Entry to editor IRQ routine 
Exit IRQ for raster interrupt 
Rout. UDTIM:Set 24hr clk 
Check recorder-keyboard 

Get CIA interrupt control reg. 
Get sy NMI/reset status pointer 
Check if bit O is cleared 

Yes, then back to IRQ routine 
BASIC IRQ entry 


~ Return to the IRQ calling routine 
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KKKKKKKKKKKKKKKKEKKKKKKKAKKKKKKK Keybaord decoder table la 
ASCII character set normal 


FA80: 14 0D 1D 88 85 86 87 11 
FA88: 33 57 41 34 5A 53 45 Ol 
FA90: 35 52 44 36 43 46 54 58 
FA98: 37 59 47 38 42 48 55 56 
FAAO: 39 49 4A 30 4D 4B 4F 45 
FAA8: 2B 50 4C 2D 2E 3A 40 2C 
FABO: 5C 2A 3B 13 01 3D 5E 2F 
FAB8: 31 5F 04 32 20 02 51 03 
FACO: 84 38 35 09 32 34 37 31 
FAC8: 1B 2B 2D OA OD 36 39 33 
FADO: 08 30 2E 9111 9D 1D FF 
FAD8: FF 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKAKE Keyboard decoder table 2a 
ASCII character set with shift 


FAD9: 94 8D 9D 8C 89 8A 8B 91 
FAE1: 23 D7 Cl 24 DA D3 C5 01 
FAE9: 25 D2 C4 26 C3 C6 D4 D8 
FAF1: 27 D9 C7 28 C2 C8 D5 Dé 
FAF9: 29 C9 CA 30 CD CB CF CE 
FBO1: DB DO CC DD 3E 5B BA 3C 
FB09: A9 CO 5D 93 01 3D DE 3F 
FB11: 21 5F 04 22 AO 02 D1 83 
FB19: 84 38 35 18 32 34 37 31 
FB21: 1B 2B 2D OA 8D 36 39 33 
FB29: 08 30 2E 9111 9D 1D FF 
FB31: FF 


KKKKKKKRKKKEKKEKKEKKKKKEKKKKKKKKKKK Keyboard decoder table 3a 
ASCII character set with C= 


FB32: 94 8D 9D 8C 89 8A 8B 91 
FB3A: 96 B3 BO 97 AD AE Bl O01 
FB42: 98 B2 AC 99 BC BB A3 BD 
FB4A: 9A B7 ADS 9B BF B4 B8 BE 
FB52: 29 A2 BS 30 A7 Al BY AA 
FBSA: Ao AF B6 DC 3E 5B A4 3C 
FB62: A8 DF 5D 93 01 3D DE 3F 
FB6A: 81 5F 04 95 AO O02 AB 03 
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FB72: 84 38 35 18 32 34 37 31 
FB7A: 1B 2B 2D OA 8D 36 39 33 
FB82: 08 30 2E 9111 9D 1D FF 


FB8A: FF 

KKEKKKKKEKKEKKEKKKEKKKKKKKKKKKKKKKE Keyboard decoder table 4a 
ASCII character set with CTRL 

FB8B: FF FF FF FF FF FF FF FF 

FB93: 1C17 01 9F 1A 13 05 FF 

FB9B: 9C 12 04 1E 03 06 14 18 

FBA3: 1F 19 07 9E 02 08 15 16 

FBAB: 12 09 OA 92 OD OB OF OE 

FBB3: FF 10 0C FF FF 1B 00 FF 

FBBB: 1CFF 1D FF FF 1F 1E FF 

FBC3: 90 06 FF 05 FF FF 11 FF 

FBCB: 84 38 35 18 32 34 37 31 

FBD3: 1B 2B 2D OA 8D 36 39 33 

FBDB: 08 30 2E 9111 9D 1D FF 

FBE3: FF 

KKKKKKKKKKKKKKEKKKKKKKKKKKK KKK A Keyboard decoder table Sa 
ASCII character set with ALT 

FBE4: 14 0D 1D 88 85 86 87 ll 

FBEC: 33 D7 Cl 34 DA D3 C5 Ol 

FBF4: 35 D2 C4 36 C3 C6 D4 D8 

FBFC: 37 D9 C7 38 C2 C8 D5 D6 

FCO04: 39 C9 CA 30 CD CB CF CE 

FCOC: 2B DO CC 2D 2E 3A 40 2C 

FC14: 5C 2A 3B 13 01 3D 5E 2F 

FC1C: 31 5F 04 32 20 02 51 03 

FC24: 84 38 35 09 32 34 37 31 

FC2C: 1B 2B 2D OA OD 36 39 33 

FC34: 08 30 2E 9111 9D 1D FF 

FC3C: FF 

KKEKKKKKRKKKKKKKKKKKKKKKKKKKKKKE Free area 

FC3D: FF FF FF 

FC7D: ‘. . . FF FF FF 

FFEF: . . .FF FF FF Free area U.S. Versions 
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KAEKKKKKKKKKKKKKKKKKKEKKKKEKKKKKE 


KAEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FC80: 
FC83: 
FC86: 


8D C5 OA 


8D 
60 


18 D4 


STA 
STA 
RTS 


SOAC5 
$D418 


KRKEKEKKKKKEKKKKKKEKKKKKKKKEKKKKKKKK 


FC87: 
FC8A: 
FC8C: 
FC8E: 
FC90: 
FC92: 
FC95: 
FC97: 
FC99: 
FC9B: 
FC9D: 
FC9OF: 
FCA2: 
FCA4: 
FCA6: 
FCA8: 


CS OA 
37 
D3 
10 
OD 
3F 03 
FD 
2A 
34 
FE 
OB 
3F 03 
FA 
1D 
6F 
CO 


SOAC5 
SFCC3 
kx $D3 
# $10 
SFCOF 
$033F 
# SFD 
SFCC3 
# $34 
# SFE 
SFCAA 
$033F 
# SFA 
SFCC3 
# S6F 
# $CO 


KKREKEKKKKKKEKERKKKKKKKKKKKKKKKKKKK 


FCAA: 
FCAC: 
FCAE: 
FCBO: 
FCB2: 
FCB5: 


85 
84 
AO 
Bl 
99 
88 


CC 
CD 
OB 
oe 
3E 03 


STA 
STY 
LDY 
LDA 
STA 
DEY 


* SCC 
* $CD 
# SOB 


(SCC) ,Y 
$033E,Y 
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International models only 
used to load International 
character sets 


Clear SID registers and edit 
pointers 


Clear sys accent mode flag(A=0) 
Clear SID volume register 
Return from subroutine 


Entry to kernal routine: KEY 
International models only 


Test bit 7 of accent-mode flag 
Bit 7 set, construct accent 
Get current SHIFT pattern in acc 
Test bit 4 for ASCII-DIN switch 
If ASCII char set selected, skip 
Test, if the high addr of the first 
Decodertable points to DIN set 
Yes, then OK and skip 
Load X and A as pointers for the 
Vctr table to DIN decoder table 
Uncond. jump to load routine 
Test if the high addr of the first 
Decoder table points to ASCII 
set. Yes, then OK and skip 
Load X and A as pointers for the 
Vect table - ASCII decoder table 


Reset table set vector 
International models only 


Save pointer to vector table low 
Save pointer to vector table high 
Loop counter for 6 vectors 

Get byte from ROM vector table 
Store it in the system vector table 
Decrement vector loop counter 
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FCB6: 
FCB8: 
FCB9: 
FCBC: 
FCBD: 
FCBE: 
FCC1: 
FCC2: 


10 F8 


C8 


8C C5 OA 


08 
78 


20 OC CE 


28 
60 


BPL 
INY 
STY 
PHP 
SEI 
JSR 
PLP 
RTS 


SFCBO 


SOACS 


SCE0C 


KKEKKKKKKKKKKEKKEKKEKRKREKKKKKKKKK 


FCC3: 
FCC6: 
FCC9: 
ECCB: 
FCCD: 
FCDO: 
FCD2: 
FCD4: 
FCD7: 
FCD8: 
FCD9: 
FCDA: 
FCDB: 
FCDE: 
FCDF : 
FCE1: 
FCE4: 
FCE6: 
FCE9: 
FCEA: 
FCEC: 
FCEE: 
FCEF : 
FCF1: 
FCF3: 
FCF6: 
FCF8: 


5D 


3F 
FD 
55 
CS 
50 
1D 
45 


45 


08 
4A 
F2 
65 


7F 
20 


23 
05 
3F 
03 


C5 
03 


OA 


FE 


FE 


FE 


FE 


FE 


$C55D 
$033F 
# SED 
SFD22 
SOAC5 
SFD22 
SFCF1 
SFE45,X 


SFE45,X 


SFCE9 
SFE4A,Y 
SFCD8 
SFE65,Y 


# STE 
# $20 


SFD14 
# $05 
SFE3F, X 
SFCFB 


395 


Loop until 6 vectors copied 
Count Y-reg back up to zero 

And clear the accent-mode flag 
Store processor status on stck 
Disable system interrupts 
Kernal routine: DLCHR 

Get processor status back: CLI 
Return from subroutine 


Check the accent keys and 
generate combine accent 
International models only 


Routine: read keyboard matrix 
Check if the high addres of first 
Decoder table points to DIN set 
No, skip: Store keypress 
Check system accent-mode flag 
Bit 7 set, store keypress 
No accent set, then skip 
Get value from combin. table 
Decrement table value by 1 
Displacement table -1 
Save character code on stack 
Get displace from table in acc 
Compare with combination table 
Get character code from stack 
Combin. table searched, skip 
Is it a combination character? 
Continue searching comb. table 
Get character from table 
Store character code from stack 
Mask out bit 7, not RVS char 
Compare to space/shift space 
Get char code back from stack 
Compare < $20: disable ctrl char 
Loop counter for accent table 
Compare char with accent table 
Character found in table, exit 
Decrement loop counter by 1 
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FCF9: DO F8 BNE SECF3 Loop until all comp. performed 
FCFB: 8E C5 0A STX SOAC5 Store displ. 

FCFE: EO 00 CPX # $00 Displ. = #0, no accent present 
FDOO: FO 20 BEQ $FD22 If zero, then store keypress _ 
FDO2: A8 TAY Copy character code in Y-reg 
FD03: 24 F6 BIT * SF6 Check if the auto-insert mode is 
FD05: 30 OD BMI $FD14 Enabled. No, then RTS 

FDO07: 24 D7 BIT * SD7 Check 40/80-column pointer 
FD09: 10 0A BPL $FD15 40-column screen active, skip 
FDOB: A2 OA LDX # SOA Load X-reg with # of VDC reg 
FDOD: 20 DACD JSR SCDDA Read corresponding VDC reg 
FD10: 29 40 AND # $40 Check current cursor mode 
FD12: DO 06 BNE $FD1A If flash mode, output character 
FD14: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKKKKKEKKKKKKKKKAKE Output constructed accent 


International models only 


FD15: AD 27 0A LDA $0A27 Check cursor on/off pointer 
FD18: DO FA BNE S$FD14 Value not=0: Cursordisable;RTS 
FD1A: 98  TYA Get character code back in acc 
FD1B: 09 40 ORA # $40 Set bit 6 in character code 

FD1D: 29 7F AND # S7F Mask bit 7, not RVS character 
FDIF: 4C 2F CC JMP S$CC2F Output char at cursor position 
FD22: A6 D3 LDX * $SD3 Get SHIFT pattern in X-reg 
FD24: A4 D5 LDY * $D5 Flag for pressed key in Y-reg 


FD26: 6C 3C 03 JMP ($033C) Vector: Store keypress ($C6AD) 


KKKKKKKKEKKKKKKKKKEKEKKKKKKKKK Keyboard decoder table 1b 
DIN charr set normal, Ctrl, Alt 
International models only 


FD29: 14 OD 1D 88 85 86 87 11 
FD31: 33 57 41 34 59 53 45 01 
FD39: 35 52 44 36 43 46 54 58 
FD41: 37 5A 47 38 42 48 55 56 
FD49: 39 49 4A 30 4D 4B 4F 4E 
FD51: BE 50 4C AF 2E BC BD 2C 
FD59: 5B 2B BB 13 01 23 5D 2D 
FD61: 31 3C 04 32 20 02 51 03 
FD69: 84 38 35 09 32 34 37 31 
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FD71: 1B 2B 2D OA OD 36 39 33 
FD79: 08 30 2E 9111 9D 1D FF 
FD81: FF 


KAKKKKKKKKKKKKEKKKKKKKKKKKKKKKK Keyboard decoder table 2b 
DIN character set with shift 
International models only 


FD82: 94 8D 9D 8C 89 8A 8B 91 
FD8A: 40 D7 Cl 24 D9 D3 C5 Ol 
FD92: 25 D2 C4 26 C3 Cé D4 D8 
FD9A: 2F DA C7 28 C2 C8 D5 Dé 
FDA2: 29 C9 CA 3D CD CB CF CE 
FDAA: 3F DO CC CO 3A DC DD 3B 
FDB2: 5E 2A DB 93 01 27 5C SF 
FDBA: 21 3E 04 22 AO 02 Dil 83 
FDC2: 84 38 35 18 32 34 37 31 
FDCA: 1B 2B 2D OA 8D 36 39 33 
FDD2: 08 30 2E 91 11 9D 1D FF 
FDDA: FF 


KAKKKKKKKKKKKKKKKEKKKKEKKKK KKK Keyboard decoder table 3b 
DIN character set with C= 
International models only 


FDDB: 94 8D 9D 8C 89 8A 8B 91 
FDE3: 96 A7 A8 97 A2 AA A3 O01 
FDEB: 98 A9 C4 99 C5 D3 CE A4 
FDF3: 9A C2 DF 9B Al C9 D6 D7 
FDFB: D1 C3 D5 Cl CB DA D8 CD 
FEO3: AB D9 C8 BF BA CA BO AC 
FEOB: AD A6 DB 93 01 DD DE B9 
FE13: 81 Bl 04 95 AO 02 AS 03 
FE1B: 84 38 35 18 32 34 37 31 
FE23: 1B 2B 2D OA 8D 36 39 33 
FE2ZB: 08 30 2E 9111 9D 1D FF 
FE33: FF 
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FE34: 
FE36: 


FE38: 
FE3A: 
FE3C: 
FE3E: 


29 FD (SFD29) 
82 FD ($FD82) 
DB FD  (SFDDB) 
8B FB (SFB8B) 
29 FD (SFD29) 
29 FD (SFD29) 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FE40: 


AF CO BF 00 00 


KAEKKKKKKKKKKKKKKKKKKKKKKKKKRKKK 


FE45: 


O01 03 07 OC OC OC 


KAKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


FE4B: 
FE53: 


FE56: 
FE5E: 


45 CO 41 45 55 AF 41 45 
49 4F 55 


FF FF FF FF FF FF FF FF 
FEF FF FF FF FF FF FF FF 


KKKKKKKKKEKEKKEKRKKKKKKKKEKKKKKKEKE 


FE64: 
FEO6C: 


FER71: 


FEFD: 


AC BF B2 AE B3 BF B4 Bd 
B6 B7 B8 


FF FF FF FF FF FF FF FFE 


FE79: FF FF FF 
- FF FF FF 
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Pointers to keyboard decoder 
tables 
International models only 


Keyboard decoder table 1b 
Keyboard decoder table 2b 


Keyboard decoder table 3b 
Keyboard decoder table 4a 
Keyboard decoder table 1b 
Keyboard decoder table 1b 


Table of three accent characters 
International models only 


<° ><‘ > <4 (last via C=/< >) 


Offset table to combinations 
of combined characters 
International models only 


Table of possible characters for a 
Combined accent character 
International models only 

<E> <‘> <A> <E> <U> <’> <A> <E> 

<I> <O> <U> 


Fill values; not used 


Table of combined accent 
characters 

International models only 
<e’> <> <‘a> <e’> <‘u> <> <a> <e4> 


<i> <“o> <u> 


Fill values; not used 
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KEKEKKKEKKKKEKKKKEKKEKKEKKKKKKKKKKK 


KEKKKKKKEKKKKKEKEKKEKKKKEKKEKKKKKKE 


FFOO: 
FFOI1: 
FFO2: 
FFO3: 
FFO4: 


00 
3F 
7F 
O01 
41 


.Byte 
.Byte 
.-Byte 
.-Byte 
-Byte 


$00 
$3F 
STE 
$01 
$41 


KEKKKKKKKKKKEKKKKKKEKKKKKKKKKKKK 


FFOS5: 
FFO6: 
FFO7: 
FFO8: 
FFO9: 
FFOA: 
FFOB: 
FFOE: 
FFOF: 
FF11: 
FF14: 


78 
48 
8A 
48 
98 
48 
AD 
48 
AQ 
8D 
6C 


00 FF 


00 
00 FF 
18 03 


SEI 
PHA 
TXA 
PHA 
TYA 
PHA 
LDA 
PHA 
LDA 
STA 
JMP 


SFFOO 


# $00 


SFF00 


($0318) 


KKEAEKKKKEKKKKKEKKEKKEKKEKKKKKKKKKKKK 


FF17: 
FF18:; 
FF19: 
FFIA: 
FFB: 
FFIC: 
FFIF: 
FF20: 
FF22: 
FF25: 
FF26: 
FF29: 


48 
8A 
48 
98 
48 
AD 
48 
AY 
8D 
BA 
BD 
29 


00 FF 


00 
00 FF 


05 01 
10 


PHA 
TXA 
PHA 
TYA 
PHA 
LDA 
PHA 
LDA 
STA 
TSX 
LDA 
AND 


SFFOO 


# $00 
SFFOO 


$0105,X 


# $10 
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American & International 
Versions 

Copy of the configuration 

registers 


Configuration register (CR) 

Load config. register A (LCRA) 
Load config.register B (LCRB) 
Load config. register C (LCRC) 
Load config.register D (LCRD) 


Kernal NMI routine 


Disable all system interrupts 
Store acc contents on stack 
Store current X-reg contents 
On the stack via the acc 

Store current Y-reg contents 
On the stack via the acc 

Get configuration register in acc 
Store configu register on stack 
Load config. register with $00 
And enable system ROMs 
Vector points to NMI routine 
($FA40) 


Kernal IRQ routine 


Store acc contents on stack 
Store current X-reg contents 
On stack via acc 

Store current Y-reg contents 
On stack via acc 

Get configuration register in acc 
Store config value on stack 
Load config.register with $00 
And enable system ROMs 

Put stack pointer in X-reg 

Get the CPU status byte stored 
Get status byte + test break bit 


Abacus Software C-128 Internals 


eee nS SSS SS ss SES 


FF2B: FO 03 BEQ SFF30 No break , continue as norm 
FF2D: 6C 1603 JMP ($0316) Vector points to BRK routine 
($B003) 
FF30: 6C 1403 JMP ($0314) Vector points to IRQ routine 
($FA65) 
FF33: 68 PLA Get old config value from stack+ 
FF34: 8D O00 FF STA SFFOO Restore selected configuration 
FF37: 68 PLA Get a byte from the stack and 
FF38: A8 TAY Restore old contents of the Y-reg 
FF39: 68 PLA Get a byte from the stack and 
FF3A: AA TAX Restore old contents of X-reg 
FF3B: 68 PLA Restore old acc contents 
FF3C: 40 RTI Return from the interrupt routine 
KHAEKKKKKKKKKKKKKKKKKKKKKKKKKKKE Kernal RESET routine 
FF3D: A9 00 LDA # $00 Load config. register with $00 
FF3F: 8D 00 FF STA SFFOO And enable all system ROMs 
FF42: 4C 00 EO JMP S$E000 Reset entry 
KKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKE Kernal vector and entry table 
FF45: FF Byte SFF 
FF46: FF Byte SFF 
FF47: 4C FB E5  JMP SESFB Pointer to kernal FSTMOD 
FF4A: 4C 3D F2 JMP S$F23D Pointer to kernal EAINIT 
FF4D: 4C 4B E2 JMP S$E24B Pointer to kernal C64 MODE 
FF50: 4C AS F7 JMP S$EF7A5 Pointer to kernal DMA-CALL 
FF53: 4C 90 F8 JUMP $F890 Pointer to kernal BOOT-CALL 
FF56: 4C 67 F8 $JMP S$F867 Pointer to kernal PHOENIX 
FF59: 4C 9D F7 JUMP $F79D Routine: LKUPLA: 
search for LFN in table 
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FEFSC: 
FEOF: 
FF 62: 
FF65: 
FF68: 
FFO6B: 
FFOE: 
FF71: 
PFTA: 
FF77: 
FFVA: 
FF7D: 
FF80: 
FF81: 
FF84: 
FE 87: 
FF 8A: 
, FF8D: 
FF9Q: 


FF93: 


AC 
4c 
4c 
4c 
4c 
AC 
4c 
4C 
4c 
4c 
4c 
4c 
00 
4c 
4c 
4c 
4c 
4c 
4c 


4c 


86 


2A 


27 


21 


3F 


EC 


CD 


E3 


DO 


DA 


E3 


17 


00 


09 


93 


56 


5B 


3C 


D2 


F7 


CO 


CO 


CO 


EF] 


EF] 


02 


02 


F’] 


F’] 


Fi] 


FA 


CO 


El 


B0 


E0 


B0 


F7/ 


4 


JMP SF786 
JMP $CO2A 
JMP $C027 
JMP $Cc021 
JMP SF73F 
JMP SF7EC 
JMP $02CD 
JMP $02E3 
JMP SF7D0 
JMP SF7DA 
JMP SE7E3 
JMP SFA17 
-Byte $00 
JMP $C000 
JMP $E109 
JMP SE093 
JMP S$E056 
JMP SEO5B 
JMP $F75C 
JMP $E4D2 
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Routine: LKUPSA: 
search for SA in table 
Pointer to kernal SWAPPER 


Pointer to kernal DLCHR 
Pointer to kernal PFKEY 
Rout. SETBNK: 


bank for LSV+filename 
Pointer to kernal GETCFG 


- Pointer to kernal JSRFAR 


Pointer to kernal JMPFAR 
Rout. INDFET: 
LDA(fetvec), Y any bank 
Rout. INDSTA: 
STA(stavec),Y any bank 
Rout. INDCMP: 
CMP(cmpvec), Y any bank 
Pointer to kernal PRIMM 


Pointer to kernal CINT 
Pointer to kernal IOINIT 
Pointer to kernal RAMTAS 
Pointer to kernal RESTOR 
Pointer to kernal VECTOR 
Pointer to kernal SETMSG 


Routine SECND: 
sec addr for LISTN 


Abacus Software 


C-128 Internals 





FF96: 


FF99: 


FF9C: 


FFOF: 


FFA2: 


FFA5: 


FFA8: 


FE AB: 


FRFAE: 


FFB1: 


FFB4: 


FFB7: 


FEBA: 


FEFBD: 


FFCO: 


FFC3: 


FFC6: 


FFC9: 


FFCC: 


FECF : 


4C EO E4 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4C 


4c 


4c 


4c 


4C 


4C 


6C 


6C 


6C 


6C 


6C 


6C 


63 


72 


12 


SF 


3E 


03 


15 


26 


3E 


3B 


44 


38 


SL 


1A 


1c 


1E 


20 


22 


24 


F7 


7 


CO 


F7 - 


E4 


E5 


E5 


E5 


E3 


E3 


F'] 


EF] 


F'] 


03 


03 


03 


03 


03 


03 


SE4E0 


SF763 


SF772 


$C012 


SF75F 


SE43E 


SE503 


$E515 


SE526 


SE33E 


SE33B 


SF744 


SF738 


SF731 


($031A) 


($031C) 


($031E) 


($0320) 


($0322) 


($0324) 
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Routine TKSA: 
sec addr for TALK 
Pointer to kernal MEMTOP 


Pointer to kernal MEMBOT 
Pointer to kernal KEY 
Pointer to kernal SETTMO 
Pointer to kernal ACPTR 
Pointer to kernal CIOUT 


Routine UNTLK: 

Untlk cmd to serial bus 
Routine UNLSN: 

Unlsn cmd to serial bus 
Routine LISTN: 

Listn cmd to serial bus 
Routine TALK: 

Talk cmd to serial bus 
Pointer to kernal READST 


Routine SETLFS: 

Set file parameters 

Routine SETNAM: 

Set filename 

Vector points to OPEN routine 
$EFBD 

Vector points to CLOSE routine 
$F188 

Vector points to CHKIN routine 
$F106 

Vector points to CKOUT routine 
$F14C 

Vector points to CLRCH routine 
$F226 _ 
Vector points to BASIN routine 
$EF06 
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FFD2: 6C 26 03 JMP ($0326) Vector points to BSOUT routine 


$EF79 
FFD5: 4C 65 F2 JMP S$F265 Routine LOADSP: load file 
FFD8: 4C 3E F5 JMP S$F53E Routine SAVESP: save file 
FFDB: 4C 65 F6 JMP SF665 Pointer to kernal SETTIM 
FFDE: 4C 5E F6 JUMP SF65E Pointer to kernal RDTIM 


FFE1: 6C 28 03 JMP ($0328) Vector points to STOP routine 


$F66E 

FFE4: 6C 2A 03 JMP ($032A) Vector points to GETIN routine 
$SEEEB 

FFE7: 6C 2C 03 JMP ($032C) Vector points to CLALL routine 
$F222 

FFEA: 4C F8 F5 JMP SF5F8 Rout. UDTIM: 
Set internal 24hr clock 

FFED: 4C OF CO JMP SCOOF Pointer to kernal SCRORG 

FFFO: 4¢C 18 CO JMP $C018 Pointer to kernal PLOT 

FFF3: 4C 81 F7 #£4=x™\JMP SF781 Pointer to kernal IOBASE 

FFF6: FF -Byte SFF 

FFF7: FF .Byte SFF 

FFF8: 24 B2 ($E224) C128Mode vector 

FFFA: 05 FF (SFF05) NMI vector 

FFFC: 3D FF (SFF3D) Reset vector 

FFFE: 17 FF (SFF17) IRQ vector 
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8.2 The Zero Page 


System variables are stored in zero page. These variables include the 
cursor position, information about the current output device, etc. Two 
hundred and fifty-six bytes sufficed to store all of this information. 


With the C-128 the situation is different, 256 bytes are no longer 
enough to store all of the system information. The name zero page has been 
retained since it has come into such wide usage (zero page actually refers to 
the 256-byte page of memory starting at address zero). 


The zero page offers many possibilities for direct manipulation and 
contains a wealth of information which the programmer can access (and 
which he should access). Since this zero page is so immensely important, 
you will find on the following pages more information on the individual 
memory addresses. This information will be very helpful to you. 


Some addresses in the zero page have meaning only in connection to the 
corresponding routines in the kernal. For this reason it is very important that 
you take a closer look at the appropriate passages in the kernal before 
manipulating the zero page. 
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Commodore-128 Zero page 


KEKKKKKKKKKKKKKKKKEKKKEKKKEKKEKKRKKKEKKKKEKKKKEKKEEKKKKKKKKKKKKKEKKKKE 


0000: 
0001: 
0002: 
0003: 
0004: 
0005: 
0006: 
0007: 
0008: 
0009: 
OOOA: 
OOOB: 
000C: 
OOOD: 
OOO0E: 
OOO0F: 
0010: 
0011: 
0012: 
0013: 
0014: 
0015: 
0016: 
0018: 
0019: 
OO1B: 
OO1E: 
0021: 
0024: 
0026: 
0028: 
002D: 
O02F: 
0031: 
0033: 
0035: 
0037: 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0024 
0025 
0027 
0030 
0033 
0036 
0038 
0040 
0045 
0047 
0049 
0051 
0053 
0055 


0023 


0026 
0029 
0032 
0035 
0037 
0039 
0044 
0046 
0048 
0050 
0052 
0054 
0056 


6510 data direction - processor port 

6510 data register - processor port 

Storage for bank byte 

Storage for program counter high 

Storage for program counter low 

Storage for CPU status register 

Storage for accumulator 

Storage for X-register 

Storage for Y-register 

Storage for stack pointer 

Look for quotation mark at end of string 
Screen column at last TAB 

Disk flag: O=LOAD, 1=VERIFY 

Number of elements, input buffer pointer 
Default for array dimensioning (DIM) 
Data-type flag 1:$00=numeric, $FF=string 
Data-type flag 2:$00=float,$80=fixed pnt 
Flag: LIST, read DATA, garbage coll. 
Pntr for FN funct, var type for FOR/NEXT 
Input-flag: $00=INPUT, $40=GET, $98=READ 
Sign of TAN: equality by comparison 
Active I/O device, flag: INPUT comment 
Line number, integer value Lo/High 
Pointer to temporary string stack 

Last string address 


_3-byte stack for temporary strings 


3-byte stack for temporary strings 
3-byte stack for temporary strings 
2-byte help pointer index 1 

2-byte help pointer index 2 
Floating-point result of multiplication 
Pointer: Start of BASIC text Lo/Hi 
Pointer: Start of BASIC variables Lo/Hi 
Pointer: Start of BASIC arrays Lo/Hi 
Pointer: End of BASIC arrays + 1 Lo/Hi 
Pointer: Start of string memory Lo/Hi 
Help pointer for string storage Lo/Hi 
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0039: 
003B: 
003D: 
003F: 
0041: 
0043: 
0045: 
0047: 
0049: 
004B: 
0O04D: 
O04F: 
0050: 
0052: 
0055: 
0056: 
0058: 
0059: 
O0O5A: 
005c: 
OO5E: 
OO5F: 
0061: 
0062: 
0063: 
0064: 
0068: 
0069: 
OO6A: 
OO6B: 
OO6F: 
0070: 
0071: 
0072: 
0074: 
0076: 
0077: 
0078: 
0079: 
OO7A: 


0057 
0059 
0061 
0063 
0065 
0067 
0069 
0071 
0073 
0075 
0077 
0079 
0080 
0082 
0085 
0086 
0088 
0089 
0090 
0092 
0094 
0095 
0097 
0098 
0099 
0100 
0104 
0105 
0106 
0107 
0111 
0112 
0113 
0114 
0116 
0118 
0119 
0120 
0121 
0122 


0058 
0060 
0062 
0064 
0066 
0068 
0070 
0072 
0074 
0076 
0078 


0081 


0084 


0087 


0091 


0093 


0096 


0103 


0110 


0115 
0117 


0124 


Pntr: End string memory, Var.Bank 1 Lo/Hi 
Current BASIC line number Lo/Hi 

Pntr BASIC text for CHRGET,CHRGOT Lo/Hi 
PRINT USING pntr,char search pntr Lo/Hi 
Current DATA line number Lo/Hi 

Pointer to current DATA address Lo/Hi 
Vector pointer for INPUT routine Lo/Hi 
Current BASIC variable name Lo/Hi 
Pointer to address of current var. Lo/Hi 
Mask for AND, LIST pntr, FOR NEXT pntr 
Temporary storage for program pointer 
Mask for compare operation >:2, =:4, <:8 
Var pntr for FN defin., + for garb coll. 
Pntr:descriptor var list-string compares 
Help Flag: $xx=HELP, $xx=LIST 

Jump vector for function evaluations 

Oldov 

Area for INSTRING oper. / temp pointer 1 
Pointer: block transfer, DIM init. 

Pointer: block transfer 

Temp pntr 2,occasionally floating-pt acc 

# places before/after dec. for conver. 

Pntr: Dec. pt when reading digit strings 
Exponent sign of the # read (neg. =$80) 
Floating-pt. accumulator 1: Exponent 
Floating-pt. accumulator 1: Mantissa 
Floating-pt. accumulator 1: sign 

Pointer: Polynomal evaluation 

Floating-pt. accumulator 2: Exponent 
Floating-pt. accumulator 2: Mantissa 
Floating-pt. acc. 2: sign 

Result flag:sign compare Acc 1 to Acc 2 
Floating-pt. accumulator 1: Round off 
Pointer: Cassette buffer 

Offset value for AUTO command, $00=off 
Hires Flag: 1=BASIC-start set 10k higher 
Sprite number-counter for leading zeros 
Help counter 

Temp storage for indirect loading 
Description of error-variable DS$ 
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007D: 
OO7F: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0089: 
OO8B: 
008C: 
OO8E: 
OO8F: 
0090: 
0091: 
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
OO9A: 
OO9B: 
009C: 
009D: 
O09E: 
OO9F: 
OOA0: 
00A3: 
OOA5: 
OOA6: 
OOA7: 
OOA8: 
OOA9: 
QOAA: 
OOAB: 


0125 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0137 
0139 
0140 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0163 
0165 
0166 
0167 
0168 
0169 
0170 
0171 


0126 


0136 
0138 


0141 


- 0162 
- 0164 


C-128 Internals 


End-of-stack during program run 

Mode Flag: $xx=RUN mode, $xx=direct mode 
USING pntr for dec pnt.,Stat. DOS parser 
Parstx 

Oldstx 

Current color for graphic mode 
Multi-color Mode: Color 1 

Multi-color Mode: Color 2 

Foreground color 

X-direction scale factor 

Y-direction scale factor 

Stop drawing, if not background color 
Address pointer for graphic routines 
Temp storage 1 for graphic routines 

Temp storage 2 for graphic routines 

Status word for kernal input/output 

Stop Flag: STOP key, RVS key 

Time constants for cassette operations 
Load Flag: $00=LOAD, $01=VERIFY 
Serial bus flag: character in buffer 

Char. in buffer for serial bus 

Sync # for cass, EOT received from tape 
Temporary data address 

Index for file tables, no. of open files 
Standard input device (0 for keyboard) 
Standard output device (3 for screen) 
Parity byte from cassette 

Tape flag: byte received 

Status flag for kernal 

Cassette error pass 1: char error 

Cassette error pass 2: corrected 

24-hr real-time clock : 1/60-sec count 
Temporary storage for serial bus 
Countdown - SAVE on tape, ser. help ptr. 
Pointer for cassette buffer 

Tape short counter, RS-232 input bits 
Tape read err,RS-232 counter input bits 
Tape 0 read flag, RS-232 start bit flag 
Tape READ mode, RS-232 buffer input byte 
Tape short counter, RS-232 input parity 
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OOAC: 
OOAE: 
OOBO: 
00B2: 
O0OB4: 
OOB5: 
OOB6: 
00OB7: 
OOB8: 
OOB9: 
OOBA: 
OOBB: 
OOBD: 
OOBE: 
OOBF: 
0O0CO: 
0O0C1: 
00C2: 
00C3: 
00C5: 
00C6: 
00C7: 
00C8: 
OOCA: 
OOCC: 
QOOCE: 
OODO: 
OOD1: 
00D2: 
O00D3: 
00D4: 
00D5: 
OOD6: 
00D7: 
00D8: 
OOD9: 
OODA: 
OODB: 
OODC: 
OODD: 


0172 
0174 
0176 
0178 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0197 
0198 
0199 
0200 
0202 
0204 
0206 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 


0173 
0175 
0177 
0179 


0188 


0196 


0201 
0203 
0205 
0207 


C-128 Internals 


Pointer: screen scroll,cass buffer Lo/Hi 
Pointer: program end,cassette end Lo/Hi 
Cassette constant for time 

Pointer: Start of cassette buffer Lo/Hi 

Tape help pntr,RS232 next bit for scroll 
EOT char, RS-232 next bit for transfer 

Tape help pointer, RS-232 byte buffer 
Length of current filename 

Logical file number (LFN) 

Current secondary address (SA) 

Current decive number (GA) 

Pntr:Address of current filename Lo/Hi 

Tape pntr, RS-232 rotate parity buffer 

No. of remaining read/write blocks 

Serial buffer 

Flag: cassette motor 

Start address in/output (Lo), track no. 

Start address in/output (Hi), sector no. 

Tape LOAD temp. pntr Kernal vector address 
Tape read/write data range 

Bank no. current LOAD,SAVE,VERIFY calls 
Bank no. of current filename $BB,$BC 
Pointer: RS-232 input buffer 

Pointer: RS-232 output buffer 

Pointer: keyboard decoder table 

Pntr to string pos.-kernal PRINT routine 
Index to keyboard buffer queue 

Function key call flag 

Function key string call index. 

Shift flag: Shift=$01, C=$02, Ctrl=$04,old=$08 
Flag for keypress 

Flag current pressed key (CHR$(0)=none) 
Flag for INPUT or GET -- keyboard input 
Flag for 40/80 column mode 

Flag for text/graphic screen mode 

Pointer for char set, RAM/ROM (only bit 2) 
Pointer for MOVLIN (Lo), <keysiz, bitmask> 
Pointer for MOVLIN (Hi), <keylen, saver> 
Number of the function key 

F-key string length up to current F-key 
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OODE: 
OODF: 
OOEO0: 
OOE2: 
O0OE4: 
OOES5: 
OOE6: 
OOE7: 
OOE8: 
OOE9: 
OOEA: 
OOEB: 
OOEC: 
OOED: 
OOEE: 
OOEF: 
OOFO: 
OOF1: 
OOF2: 
OOF3: 
OOF4: 
OOF5: 
OOF6: 
OOF7: 
OOF8: 
OOF9: 
OOFA: 
OOFF: 


0222 
0223 
0224 
0226 
0228 


0229 


0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0255 


- 0225 
- 0227 


- 0254 


C-128 Internals | 


Bank for function key call <sedt1> 

F-key string length up to current (F-key-1) 
Pointer to running screen line: text RAM 
Pointer running screen line:attribute RAM 
Lower border of window 

Upper border of window 

Left border of window 

Right border of window 

Start of running input column 

Start of running input line 

End of running input line 

Current cursor position: line 

Current cursor position: column 
Maximum number of screen lines 
Maximum number of screen columns 
Temp storage of characters to be put out 
Memory: previous char (for ESC test) 
Color code under cursor for char output 
Color code protection for INSERT/DELETE 
Flag: RVS mode active 
Flag: Quote mode active 

Flag: Insert mode active 
Flag: Auto insert active 

Cutoff switching of C-Shift ($80) and Ctrl S ($40) 
Cutoff of screen scrolling 

Cutoff of beep tones made by Crtl G 

Free area for user applications 

Lofbuf 


KKEKKKKEKKEKKKKEKEKKKKKKKKEKKKKEKKKKKEKKKKKKKEKEKKKKEKKEKKKKKKKEKKKKKKKKK 
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Commodore-128 Page-One RAM 


KEKKKKKKKKKKKKEKKKKKKKEKKKKKKKKKKEKKKKEKKKREKEEKKKEKRKKKKEKKKKKKKKKK 


0100: 
0110: 
0111: 
0112: 
0113: 
0115: 
0116: 
0117: 
0119: 
011B: 
011D: 
O11E: 
O11F: 
0120: 
0121: 
0122: 
0124: 
0125: 
0126: 
0127: 
0128: 
0129: 
012A: 
012B: 
012C: 
012D: 
012E: 
012F: 
0130: 
0131: 
0132: 
0133: 
0134: 
0135: 
0136: 
0137: 


0256 
0272 
0273 
0274 
0275 
0277 
0278 
0279 
0281 
0283 
0285 
0286 
0287 
0288 
0289 
0290 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 


0271 


0276 


0280 
0282 
0284 


0291 


16-byte area for creating data names 

DOS loop counter 

DOS length of 1st file name 

DOS device numbers, 1st disk drive 

DOS address, 1st file name Lo/Hi 

DOS length, 2nd file name 

DOS device number, 2nd disk drive 

DOS address, 2nd file name Lo/Hi 

Starting address for BLOAD/BSAVE Lo/Hi 
End address for BSAVE command Lo/Hi 
DOS logical address 

DOS physical address 

DOS secondary address 

DOS length of a record 

DOS BANK number 

DOS 2-byte storage for diskette ID 

DOS flag for disk ID testing 

PRINT USING pointer to starting number 
PRINT USING pointer to end number 
PRINT USING flag for dollar sign ($) 
PRINT USING flag for comma (,) 

PRINT USING counter 

PRINT USING sign of exponent 

PRINT USING pointer to exponent 
PRINT USING counter for whole no. places 
PRINT USING flag for align after dec. pt 
PRINT USING cntr field pos before dec pt 
PRINT USING cntr field pos after dec. pt 
PRINT USING flag for sign (+/-) 

PRINT USING flag for field exponent 
PRINT USING switch 

PRINT USING counter for chars in field 
PRINT USING sign number 

PRINT USING flag for space or asterisk 
PRINT USING pointer to start of field 
PRINT USING pointer for length of format 
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0138: 0312 PRINT USING pointer to end of field 


KRREKKEKKKKKEKKKKKKKEKKKKKKKKKKEKEKKKKEKKKKEKEKEEKRKEKKREKKKKEKKKKKKKKKKKK 


0139: 0313 - 0510 End of the system stack 
O1FF: 0511 Start of system stack 


KKKEKKKKKKEKKEKKEKKKKKKEKKEKKKKEKKKKKKEKKEKKEKKKKKKKEKKKRKKRKEKKEKEKKKKKKKKEK 


0200: 0512 BASIC and monitor input buffer 


KEKKKKKEKKKKEKRKKKEKKEKEKEKKEKKRKKKKKEKKEKKKKKKKKKKKEERKEKKKEKKRKKKKKKKKK 


02A2: 0674 FETCH Routine: LDA(ZP),Y from any bank 
02A2: AD 00 FF LDA SFFOO You can find a description of 
02A5: 8E 00 FF STX $FFOO This routine in the 

O2A8: AA TAX ROM listing at $F800, because 
02A9: Bl FF LDA (SFF),Y |The ROM copy 1s located there. 
O2AB: 8E 00 FF STX S$FFOO The "FETVEC" address is: 
O2AE: 60 RTS $02AA, or dec. 0682. 


KEKKKKKEKKEKEKKKKKKRKKRKEKEKKKEKKKKKEKEKKEKKEKEKKKKKKKEKKKEKKKEKKKKKKKKKKK 


O2AF: 0687 STASH Routine: STA(ZP),Y in any bank 

O2AF: 48 PHA You can find a description of 
02B0: AD 00 FF LDA $FFO00 This routine in the 

02B3: 8E 00 FF STX SFFOO ROM listing at $F80D, because 
O2B6: AA TAX The ROM copy is located there. 
02B7: 68 PLA The "STAVEC" address: 1s 
02B8: 91 FF STA (SFF),Y $02B9, or dec. 0697. 

O2BA: 8E 00 FF STX SFFOO 

O2BD: 60 RTS 


KREKKKKKKKKKRKEKKKRKKKKKKKKKEKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


O2BE: 0702 CMPARE Routine: CMP(ZP),Y with any bank 
0O2BE: 48 PHA You can find a description of 
O2BF: AD 00 FF LDA S$FFOO This routine in the 
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02C2: 
02C5: 
O2C6: 
O2CT: 
O02C9: 
O2CC: 


8E 00 FF 


AA 
68 
D1 


8E 00 FF 


69 


FF 


STX 
TAX 
PLA 


CMP 


STX 
RTS 


SFFOO 


(SEF) ,Y 
SFF00 


ROM listing at $F81C, because 
The ROM copy is located there. 
The "CMPVEC" address is: 
$02C8, or dec. 0712. 


KAEKKKKKEKKEKKKKKKKKKKKEKKEKKEKEKEKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKEK 


O2CD: 


O2CD: 
02D0: 
0O2D2: 
02D4: 
O2D6: 
02D7: 
02D8: 
O2DA: 
O2DB: 
O2DD: 
O2DF: 
O2E2: 


0717 


20 
85 


E3 02 
06 
07 
08 


05 


09 


00 
00 FF 


JSRFAR Routine: JSR in any bank and return 


JSR 
STA 
STX 
STY 


PHP 


PLA 
STA 
TSX 
STX 
LDA 
STA 
RTS 


$02E3 
x $06 
* $07 
x $08 


* $05 
x $09 


# $00 
SFF00 


You can find a description of 
This routine in the 

ROM listing under the 

address $F82B, because 

The ROM copy is located there. 


KKEKEKKKKKKKEKKKKEKRKEKKKKEKEKKKKKKKKKKKKKEKKEKKEKKKKEKKEKKKKKKKKKKKK 


02E3: 


02E3: 
O2E5: 
O2E7: 
O2E8: 
O2E9: 
O2EB: 
O2ED: 
O2EF: 
O2F3: 
O2F6: 
O2F8: 
O2FA: 
O2FB: 


0739 


A2 
BS 
48 
E8 
E0 


90 


A6 
20 
8D 
A5 
A6 
A4 
40 


00 
03 


03 

F8 

02 

6B FF 
00 FF 
06 
07 - 
08 


JMPFAR Routine: JMP in in any bank no return 


LDX 
LDA 
PHA 
INX 
CPX 
BCC 
LDX 


‘JSR 


STA 
LDA 
LDX 
LDY 
RTI 


# $00 


* $03,X 


# $03 
$02E5 
x $02 
SFF6B 
SFFOO 
* $06 
* $07 
x $08 
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Address $F841, because 
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Routine to jump to a function cartridge. The cartridge vector 
has the address: $02FE-$02FF (dec. 766-767) 


O2FC: 
O2FD: 


78 
4c 00 00 


SEI 
JMP 


$0000 


Disable system interrupts 
Jump to the function cartridge 
vector 


KEKEKKEKEKEKKEKKKEKKKKKKKKKKKKEKKKKEKKEKKKKKKEKKEKREKEKKKEKKEKKKEKKKKKK 


0300: 
0302: 
0304: 
0306: 
0308: 
030A: 
030C: 
O30E: 
0310: 
0312: 
0314: 
0316: 
0318: 
O31A: 
031C: 
O31E: 
0320: 
0322: 
0324: 
0326: 
0328: 
032A: 
032C: 
O32E: 
0330: 
0332: 


0768 
0770 
0772 
0774 
0776 
0778 
0780 
0782 
0784 
0786 
0788 
0790 
0792 
0794 
0796 
0798 
0800 
0802 
0804 
0806 
0808 
0810 
0812 
0814 
0816 
0818 


3F 
C6 
OD 
51 
A2 
DA 
21 
CD 
AY 
FE 
65 
03 
40 
BD 
88 
06 
AC 
26 
06 
79 
6E 
EB 
22 
06 
6C 
4E 


4D 
4D 
43 

51 
4A 
78 

43 
51 
4B 
FF 
FA 
BO 
FA 
EF 
Fl 
Fl 
Fl 
F2 
EF 
EF 
F'6 
EE 
F2 

BO 
F2 

F5 


(S4D3F) 
($4DC6) 
($430D) 
($5151) 
(S4AA2) 
($78DA) 
($4321) 
($51CD) 
(S4BA9) 
(SFFFF) 
(SFA65) 
($B003) 
(SFA40) 
(SEFBD) 
(SF188) 
(SF106) 
(SF14C) 
($F226) 
(SEF06) 
(SEF79) 
(SF66E) 
(SEEEB) 
(SF222) 
($B006) 
(SF26C) 
(SF54E) 
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Vector: Error routine (X=error) 
Vector: Read/exec. BASIC line 
Vctr: Convert interpreter code 
Vector: Convert to text (List) 
Vector: Execute the keyword 
Vector: Evaluate expression 
Vector: Esc. conversion routine 
Vector: Escape list 

Vector: Execute escape 
Interrupt vector: TIME 

Vector for IRQ routine 

Vector for break entry -Monitor 
Vector for NMI routine 

Vector to kernal OPEN routine 
Vector: kernal CLOSE routine 
Vector: kernal CHKIN routine 
Vector: kernal CKOUT routine 
Vector: kernal CLRCH routine 
Vector to kernal BASIN routine 
Vector: kernal BSOUT routine 
Vector to kernal STOP routine 
Vector to kernal GETIN routine ~ 
Vector: kernal CLALL routine 
Vector to EXMON entry 
Vector to kernal LOAD routine 
Vector to kernal SAVE routine 
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Copy of the character output, keyboard and decoder vectors. 
The originals of these vectors are in ROM at addr. $C065 - $CO7A 


0334: 
0336: 
0338: 
033A: 
033C: 
033E: 
0340: 
0342: 
0344: 
0346: 
0348: 


0820 
0822 
0824 
0826 
0828 
0830 
0832 
0834 
0836 
0838 
0840 


B9 
05 
Cl 


C7 
C8 
C9 
C5 
C6 
FA 
FA 
FB 
FB 
FA 
FB 


($C7B9) 
($C805) 
($C9C1) 
($C5E1) 
(SC6AD) 
(SFA80) 
(SFAD9) 
(SFB32) 
(SFB8B) 
(SFA80) 
(SFBE4) 


Vector for char output with Ctrl 
Vector : char output with Shift 
Vector for char output with Esc 
Vector for keyboard read 
Vector to keypress store 
Vector: Keybd decoder table la 
Vector: Keybd decoder table 2a 
Vector: Keybd decoder table 3a 
Vector: Keybd decoder table 4a 
Vector: Keybd decoder table la 
Vector: Keybd decoder table Sa 


KKKKEKKKEKKKEKKKKKKKEKKKKEKKKEKKKEKEKKKKEKKKEKEKKRKKEKEKKKRKKKKKKKKKKKKKEKRK 


034A: 
0354: 
O35E: 
0362: 
036C: 
0376: 


0842 
0852 
0862 
0866 
0876 
0886 


0851 
0861 
0865 


- 0875 


0885 
0895 


IRQ keyboard buffer 

Bit map table: Tab stops 

Bit map table: Line overflow 
Table of logical file numbers 
Table of device addresses 


Table of secondary addresses 


KKEKEKEKKKEKEKKKKKKKKKKKKEKKKKKKKKKKKKEKEKRKEKKEKKRKRKEKEEKKEKKKKEKKKKKKKKK 


0380: 0896 BASIC CHRGET routine 
(The original is in ROM at address $4279) 
0380: E6 3D INC * $3D Increment BASIC text pointer lo 
0382: DO 02 BNE $0386 No overflow, then skip 
0384: E6 3E INC * $3E Increment BASIC text pointer hi 
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0386: 


0386: 
0389: 
O38B: 
O38D: 


0902 


8D 01 FF 
AO 00 
Bl 3D 
8D 03 FF 


BASIC CHRGOT routine 
(The original is in ROM at address $427F) 


STA 
LDY 
LDA 
STA 


SFFO1 Enable RAM 0 area 

# $00 Displacement pntr to BASIC text 
($3D),Y Get character from BASIC text 
SFFO3 RAM 0, enable system ROMs 


KKKKKKKKEKKKKEKKEKKEKKKKKEKKEKKRKKEKKKKKKEKEKKKKKKKKKKEKKKKKEKKKKKK 


0390: 


0390: 
0392: 
0394: 
0396: 
0398: 
0399: 
O39B: 
039C: 
O39E: 


0912 


C9 3A 
BO OA 
C9 20 
FO EB 
38 
B9 30 
38 
E9 DO 
60 


BASIC QNUM routine 

set zero flag for separator $00 or $3A 

set carry flag for digit 0 - 9 

(The original is in ROM at address $4289) 


CMP 
BCS 
CMP 
BEQ 
SEC 
SBC 
SEC 
SBC 
RTS 


# $3A Char code > digit code? 
$039B Yes, then skip 
# $20 Was character a "blank"? 
$0380 Yes, then skip blank 

Set carry for subtraction 
# $30 Test for digit (then C = 1) 

Set carry for subtraction 
# $DO Restore old value 

Return from subroutine 


KKEKEKKKEKKKKEKKEKKEKKKKKKKKEKKKKKREKKKKKEKKKKEKKEKKKEKEKKKKKKKKKKKKKKK 


O39F: 


O39F: 
O03A2: 
03A5: 
O3A7: 
O3AA: 


0927 


8D Ab 03 
8D O01 FF 
Bl 00 

8D 03 FF 
60 


Load from a bank via PCRA and PRCR 
(The original is in ROM at address $4298) 


STA 
STA 
LDA 
STA 
RTS 


$03A6 
SFFO1 
($00),Y 
SFF03 
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03AB: 0939 Load from any bank via PCRB and PCRD 
(The original is in ROM at address $42A4) 

O3AB: 8D B2 03 STA $03B2 

O3AE: 8D 02 FF STA S$FFO02 

O3B1: Bi 00 LDA ($00),¥Y 

03B3: 8D 04 FF STA S$FFO4 

O3B6: 60 RTS 


KKKEKKKKKKEKKEKKEKRKKKKKKEKKKEKKKEKKKEKKEKKKRKKKKKKKKKKKKEKKKRKKKKKKKKK 


03B7: 0951 : Load from any bank via PCRA and PCRC of 
the address given by zero-page index 1 
The original is in ROM at address $42B0) 


O3B7: 8D 02 FF STA SFFO2 
O3BA: Bl 24 LDA ($24),Y 
O3BC: 8D 04 FF STA SFFO04 
O3BF: 60 RTS 


KKEKKKKKKKKEKKEKEKKEKEKKEKKKKEKKKKKKKEKERKEKKKEKREKKEKKKKEKKKKKKKKKKKKKK 


03C0: 0960 Load from any bank via PCRB and PCRD of 
the address given by zero-page index 2 
(The original is in ROM at address $42B9) 


03C0: 8D 01 FF STA SFFO1 
03C3: Bl 26 LDA ($26),Y 
03C5: 8D 03 FF STA SFFO3 
03C8: 60 RTS 


KHKKKKKKKKKKKKEKKEKKEKKKEKEKKKKKKKKKKKEKKKEKKKRKEKKKKKKKKEKKKKKKKKKKK 


03C9: 0969 Load from any bank via PCRA and PCRC of the 
address given by the zero-page CHRGET pointer 
The original is in ROM at address $42C2) 


03C9: 8D O01 FF STA SFFO1 
03CC: Bl 3D LDA ($3D),Y 
O3CE: 8D 03 FF STA S$FFO3 
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O3D1: 60 RTS 


KI KKKKK KKK KKK KEKE KKK KKK KEKE KEKE KEKE KKK KKEKKKKEKKEKKKKKKKK 


03D2: 0978 - 0980 Numerical constants BASIC, loaded from ROM > 
03D5: 0981 Bank for SYS,POKE,PEEK. Set by bank cmd 
03D6: 0982 - 0985 ‘Temp storage for INSTRING 

O3DA: 0986 Bank pointer for strings and number conversion 
03DB: 0987 - 0990 4 Byte storage for SSHAPE operations 

O3DF: 0991 Overflow marker of FAC1 

03E0: 0992 Temp storage for sprite control No.1 

03E1: 0993 Temp storage for sprite control No.2 

03E2: 0994 Packed foreground/background color nibbles 
03E3: 0995 Packed foreground/background color nibbles 
03E4: 0996 - 1007 Freearea 


KAI K KKK AK KEKE KEK KKK KKK KKK KKK KKK KKKKEKEKKKKKK 


DMaA call routine inthe lower common area (1st K) 


O3FO: 1008 

for initializing the the external memory access 
O3F0: AE 00 FF LDX $FFO0O You can find a description of 
0O3F3: 8C 01 DF STY $DFO1 This DMA call routine for 
O3F6: 8D 00 FF STA SFFOO controlling the external memory 
O3F9: 8E 00 FF STX SFFOO access in ROM under the 
O3FC: 60 RTS original address $F85A 


KKEAKKKKKKKKKKKEKKKEKKKKKKKEKKEKKEEKKKEKKKKEKEKEKKKEEKKRKKKEKKKKKKKKEKEKE 


O3FD: 1021 - 1023 Freearea 


O3FF: 1023 End of the common area, the same in all banks 


KAEKKKEKKEKKKKKKKEKEKKKEKKEKKEKKKEKEKRKEKEKEKEKKKKKEKREKKKKKKEKKKKKKKK 


0400: 1024 - 2047 Screen storage 


KREKKKKEKKEKKKKEKKKKKKKEKKKKKKKEEKKKEKKKKKKEKKKEKKEKEKKEKKKEKKKEKKKKEKK 
0800: 2048 - 2559 512 bytes for BASIC run-time storage 
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OA00: 
OA02: 
OA03: 
OA04: 
OA05: 
OA07: 
OA09: 
OAOB: 
OA0C: 
QOAOD: 
OAOE: 
OAOF: 
0OA10: 
0OA11: 
0OAl12: 
0OA14: 
OA15: 
OA16: 
0OA18: 
0A19: 
OAI1A: 
OA1B: 
OAIC: 
OA1D: 
OA20: 
OA21: 
OA2Z2: 
0A23: 
0A24: 
0OA25: 
OA26: 
OA27: 
0A28: 
0OA29: 
OAZA: 
OA2B: 
OA2C: 
OA2D: 


2560 
2562 
2563 
2564 
2565 
2567 
2569 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2580 
2581 
2582 
2584 
2585 
2586 
2587 
2588 
2589 
2592 
2593 
2594 
2595 
2596 
2597] 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 


2561 


2566 
2568 
2570 


2579 


2583 


2591 


Vector System restart (normal warm-start) ($4003) 
Kernal Warm/cold-start Initialization status 
PAL/NTSC system pntr ($FF=PAL,$00=NTSC) 
System pointer for the NMI and RESET status 
Lower boundary of available RAM in system bank 
Upper boundary of available RAM in system bank 
Indirect IRQ vector for cassette routines 

Time comparison for cassette routines 

Temp stroage when reading from cassette 

Temp storage when reading from cassette 
Timeout pointer for fast serial mode 

RS-232 NMI status register 

RS-232 control register 

RS-232 command register 

RS-232 user baud rate 

RS-232 status register 

RS-232 Number of bits to send 

RS-232 baud rate: full bit time (in us) 

RS-232 Index to the start of the input buffer 
RS-232 Index to the end of the input buffer 
RS-232 Index to the start of the output buffer 
RS-232 Index to the end of the output buffer 
Intern/extern pointer for fast serial mode 

Temp storage for the 24hr real-time clock 

Storage for the size of the keyboard buffer 

Pause pointer, <Crtl - S> pointer 

Pointer: Key repetitions 

Count speed for the key repeat 

Counter for the key-repeat delay 

Storage for the last shift pattern of the keyboard 
Pointer for cursor in flash phase 

Pointer for cursor on/off (0 = flashing cursor) 
Count pointer for flashing cursor 

Character for cursor position 

Storage for background color under cursor 
Pointer for current cursor mode (if available) 

Text screen/character base pointer 

Bit map base pointer 
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OA2E: 
OA2F: 
0OA30: 
OA31: 
0OA32: 
0A33: 
0A34: 
0A35: 
0OA36: 
0A37: 
0A38: 
OA39: 


2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
26177 


Pointer for address (*256) for 80 char video RAM 
Pointer for address (*256) for attribute RAM 
Temp pointer to last line for LOOP4 routine 
Temp storage (a) for 80-column routines 

Temp storage (b) for 80-column routines 

Temp storage (a) for line clear / move 

Temp storage (b) for line clear / move 

Color under 80-column cursor before flash 
Raster line at which the raster int. was generated 
Storage for the X-register for BANK operations 
Counter for the PAL system, jiffie adjust 

Temp storage for for 80-column VDC screen 


KI KKKKKKKKKK KKK KEK KR KK KKK KEKE KEK KK EKER KEKE KKKEKKKKEKKKEKKKKKK 


Safety storage for passive-screen variables. This area 
corresponds to the zero-page area at $EO. 


0A40: 
0OA42: 
OA44: 
OA45: 
OA46: 
0OA47: 
0OA48: 
0OA49: 
OA4A: 
OA4B: 
OA4C: 
OA4D: 
OA4E: 
OA4F: 
0A50: 
OA51: 
OA52: 
0A53: 
OA54: 
QOA55: 
OA56: 
OA57: 


2624 — 2625 Pointer to the current screen line: Text RAM 


2626 -— 2627 


2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 


Pointer to the current screen line: Attribute RAM 
Lower border of the window (init: $18 = 24) 
Upper border of the window (init: $00 = 00) 
Left border of the window (init: $00 = 00) 
Right border of the window (init: $4F = 79) 
Start of the current input line (init: $00 = 00) 
Start of the current input column (init: $00 = 00) 
End of the current input line (init: $00 = 00) 
Current cursor position: line (init: $00 = 00) 
Current cursor position: column (init: $00 = 00) 
Max number of screen lines (init: $18 = 24) 
Max number of screen columns (init: $4F = 79) 
Temp storage for character to output 

Storage: Previous character (for ESC test) 
Current color code under cursor (init: $07 = 07) 
Color code storage (Insert+delete)(init: $07 = 07) 
Pointer for RVS mode active 

Pointer for quote mode active 

Pointer for insert mode active 

Pointer for auto-insert active 

Pointer for switch-lock and pause pointer 
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OA58: 
0OA59: 


2648 


2649 


Pointer for locking screen-scroll 
Pointer for locking beep tone (Ctrl-G) 


KEKKKKKEKKKKKKKKKEKKKEKKEKKKKKKKKKKEKKKEKKEKKKKKKKKKKK KKK KKKKKKKEK 


OA60: 2650 - 2687 Temp Storage area for 40 and 80-column 

OA80: 2688 - 2719 Buffer for comparison operations 

OAAO: 2720 - 2729 Temp counter 

OAAA: 2730 Adressing mode for assembler command 

OAAB: 2731 Length of the cmd code for assem./disassembler 

QOAAC: 2732 - 2734 Assembler/disassembler storage for integ. monitor 

OAAF: 2735 One-byte temp storage for misc 

OABO: 2736 One-byte temp storage for misc 

OAB1: 2737 One-byte temp storage for misc 

OAB2: 2738 X-reg storage for indirect subroutine calls 

0OAB3: 2739 Direction pointer for transfer operations 

OAB4: 2740 - 2751 One-byte temp storage 

OACO: 2752 ROM bank for current function key call 

OAC1: 2753 - 2756 Table of physical addresses and ID's from 
inserted expansion cards 

OAC5: 2757 System pointer for the combination of vowels with 


accents in DIN character set (International only) 


KREKKKKKEKRKEKEKKKEKRKKKKKEKRKKKKKKKKKEKKEKKKKKEKKKEKEKRKEKKKKKKKKKKKKKKK 


OB00: 2816 - 3071 Cassette buffer 


KEKKKKKEKEKEKKKKEKKKKKKKEKEKEKKKKKKRKKKKKEKRKKKEKKKKEKRKEKEKKEKKKKKKKKKKKK 


0c00: 3072 - 3327 RS-232 input buffer 


KEKKKKKKKKKKEKKEKEKKEKKEKKEKKEKKKKEKKKEKE KKK KKKRKKKRKKREKKKKKKKKKKKKKKK 


OD00: 3328 - 3583 RS-232 output buffer 


KHEKEKKKKEKKKKKEKKKKEKKKKEKKKKEKKEKEKKEKEKEKRKEKRKEKKRKEKREKKKKKKKKEKKKKEKR 


0F00: 3584 - 4095 Area for sprite definition (must be under $1000) 
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Fe K KKK KK TK KKK KKK KKK KKK KKK KKK KKK KK KEKE KR KKAKKRKEKRKEKKEKKKK EK 


1000: 
100A: 


4096 - 4105 Programmable function keys (length table) 
4106 - 4351 Programmable function keys (function strings) 


KKK KKK KK KKK KKK KK KKK KKK ERK RKKKKKKEKK KR KK KK KKKKKEKKEKKEKKKKK 


1100: 
IS 
LESS: 
11.30% 
1137: 
1139: 
113B: 
113D: 
113F: 
1141: 
1145: 
1147: 
1148: 
1149: 
114A: 
LAC: 
114E: 


4352 
4401 
4403 
4405 
4407 
4409 
4411 
4413 
4415 
4417 
4421 
4423 
4424 
4425 
4426 
4428 
4430 


4400 
4402 
4404 
4406 
4408 
4410 
4412 
4414 
4416 
4420 
4422 


4427 
4429 
4431 


Buffer for generating DOS output strings 

Graphic variable: Current X-position (Lo/Hi) 
Graphic variable: Current Y-position (Lo/Hi) 
Graphic variable: Dest direction, X-coord (Lo/Hi) 
Graphic variable: Dest direction, Y-coord (Lo/Hi) 
Variable - graphic lines: X/Y-absolute,X-absolute 
Variable for graphic lines: Y-absolute 

Variable - graphic lines: X/Y-Signum , X-Signum 
Variable for graphic lines: Y-sign 

Variable for graphic lines: Factor 

Variable for graphic lines: Error value 

Variable for graphic lines: Smaller marker 
Variable for graphic lines: Larger marker 

Variable for angle routine: Sign of the angle 
Variable for angle routine: Sine of the angle value 
Variable for angle routine: Cosine of the angle val 
Variable for angle routine: Angle distance 


KKK KKK KKK KKK KKK KKK KEKE KKK KKK KKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKK 
The following 24 bytes are used for a variety of purposes 


1150: 
L152: 
1154: 
1156: 
1158: 
115C: 
115E: 
1160: 
1162: 
1164: 
1166: 


4432 
4434 
4436 
4438 
4440 
4444 
4446 
4448 
4450 
4452 
4454 


4433 
4435 
4437 
4439 
4443 
4445 
444’) 
4449 
4451 
4453 
4455 


Variables for circle routines 


Circle center: X-coordinate (Lo/Hi) 
Circle center: Y-coordinate (Lo/H1) 
Circle radius in X-direction (Lo/H1) 
Circle radius in Y-direction (Lo/Hi) 
Rotation angle of the circle (Lo/Hi) 
Angle degree for start of arc (Lo/H1) 
Angle degree for end of arc (Lo/Hi) 
X-radius * Cos (rotation angle) 
Y-radius * Sin (rotation angle) 
X-radius * Sin (rotation angle) 
Y-radius * Cos (rotation angle) 


421 


Abacus Software 


C-128 Internals 


TSS SSS SSS SSS ens is chs 


4433 
4435 
4437] 
4439 
4441 
4443 
4445 
4447] 


4442 
4444 
4446 
4448 


Parameters used for general purposes 


Center for X-coordinate 
Center for Y-coordinate 
Distance 1 for X-coordinate 
Distance 1 for Y-coordinate 
Distance 2 for X-coordinate 
Distance 2 for Y-coordinate 
End of coordinate distance 
Column counter for characters 
Line counter for characters 
Length counter for string 


Variables used for rectangle routines 


X-coordinate 1 

Y-coordinate 1 

Rotation angle 

Counter for X-value 

Counter for Y-value 

Length of a side of the rectangle 
X-coordinate 2 

Y-coordinate 2 


Used for shapes and shape movement 


Place older 

Length pointer 

Following pointer 

Length of the string 

Shape mode set/replace 

Pointer to position in the string 

Old bit-map byte 

Variable for new string or bit-map byte 
Place holder 

Column width (X-width) of a shape 
Line number (Y-length) of a shape 
Temp storage for the column width 
Pointer to the shape string for shape storage 
Bit pointer to byte of shape string 
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KK KK KKK HIKE KK IKK KKK KEKE KEK KEKE KA KKK ERK KEKE KEKKKEKKKKKKKK 


1168: 
1169: 
116A: 
116B: 
116C: 
116D: 
116E: 
116F: 
1170: 
LiiZ: 
1174: 
1175: 
1177: 
1178: 
1179: 
117A: 
117C: 
117E: 
11D6: 
1200: 
1202: 
1204: 
1205: 
1206: 
1207: 
1208: 
1209: 
120B: 
120D: 
120E: 
1210: 
1212: 
1214: 
1216: 
1218: 
1219: 


4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4466 
4468 
4469 
4471 
4472 
4473 
4474 
4476 
4478 
4566 
4608 
4610 
4612 
4613 
4614 
4615 
4616 
4617 
4619 
4621 
4622 
4624 
4626 
4628 
4630 
4632 
4633 


4465 
4467 


4470 


4475 
4477 
4565 
4607 
4609 
4611 


4618 
4620 


4623 
4625 
4627 
4629 
4631 


4634 


Area for general graphic variables 


Temp storage for diverse purposes 

Temp storage: Bit counter GSHAPE instruction 
Screen scaling pointer 0=320*200,1=1024*1024 
Temp storage for double-width 

Temp storage for box fill 

Temp storage for bit masks 

Temp counter for numerical values 

Temp pointer for trace mode on/off 

Temp storage 1 for renumber routine 

Temp storage 2 for renumber routine 

1 byte temp storage 

2 byte temp storage 

1 byte temp storage 1 for graphic routines 

1 byte temp storage 2 for graphic routines 

1 byte temp storage for graphic routines 

Vector: Convert floating-point to integer ($849F) 
Vector: Convert integer to floating-point ($793C) 
Speed/direction table for sprites 

42-byte area for copying VIC registers 

Previous BASIC line number 

Command pointer for BASIC CONT command 
Print Using pointer: Chr$ 

Print Using pointer: Fill character 

Print Using pointer: Comma character 

Print Using pointer: Character for decimal point 
Last error number (for TRAP command) 

Line number of the last error (SFFFF is OK ind) 
Line number to be executed if error occurs 
Temp pointer for TRAP command 

Pointer to text of error message 

Text-end pointer 

Highest address available to BASIC in RAM 0 
Temp storage for DO - LOOP 

Temp storage for line number 

USR jump 

USR address in format Lo/Hi 
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121B: 4635 - 4639 


1220: 
1221: 


4640 
4641 


Initial value for RND function 
Degree number for arc 
Pointer to reset status (cold-start or warm-start) 


KEKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK 


12222 
1223: 
1229: 
122B: 
£Z22C: 
iZ2D: 
122F: 
1230: 
12333 
1234: 
1238: 
1239: 
123A: 
123B: 
123E: 
123F: 
1249: 
1253: 
ZOD: 
1267: 
I2Z7i: 


4642 
4643 
4649 
4651 
4652 
4653 
4655 
4656 
4659 
4660 
4664 
4665 
4666 
4667 
4670 
4671 
4681 
4691 
4701 
4711 
4721 


4648 
4650 


4654 


4658 


4663 


4669 


4680 
4690 
4700 
4710 
4720 
4725 


Storage area for music pointers 


<tempo rate> 
<voices> 
<ntime> 
<octave> 
<sharp> 
<pitch> 
<voice> 
<wave O> 
<dnote> 
<fltsav> 
<fltflg> 
<nibble> 
<tonnum> 
<tonval> 
<parcnt> 
<atktab> 
<sustab> 
<waftab> 
<pulslw> 
<pulshi> 
<filters> 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKKEKKKKEKKKKKKEKKKKKKK 


1276: 
1279: 
I2Z7C: 
127F: 
1280: 


4726 -— 4728 
4729 - 4731 
4732 - 4734 
4735 
47736 


Storage area for interrupt pointer 


3-byte interrupt storage 

3-byte interrupt address lo storage 
3-byte interrupt address hi storage 
<intval> 

<coltyp> 
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KKH KI KK RIK AIK IR IAI KKK KAIRIE KKK IRR KER ERR KEKE KEKE RE RE 


1281: 
1282: 
1285: 
1288: 
128B: 
128E: 
1291: 
1294: 
1297: 
129A: 
129D: 
12A0: 
12A3: 
12A4: 
12A5: 
12A6: 
12A7: 
12A8: 
12A9: 
12AA: 
12AB: 
— 12AC: 
12AD: 
1Z2AE: 
12AF: 
12B0: 
12Bl1: 
12B2: 
12B3: 
12B7: 
12FA: 
12FB: 
12FC: 


47317 
4738 
4741 
4744 
4747] 
4750 
4753 
4756 
4759 
4762 
4765 
4768 
A771 
4772 
47713 
4774 
4775 
4776 
47711 
4778 
4719 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
A791 
4858 
4859 


4740 
4743 
4746 
4749 
4752 
4755 
4758 
4761 
4764 
4767 
4770 


- 4790 
- 4857 


4860 - 4863 


Storage for SID variables 


Sound: Voice storage 

Sound: Time storage lo value (3 byte) 

Sound: Time storage hi value (3 Byte) 

Sound: Max value lo (3 Byte) 

Sound: Max value hi (3 Byte) 

Sound: Min value lo (3 Byte) 

Sound: Min value hi (3 Byte) 

Sound: Direction (3 Byte) 

Sound: Step number lo (3 Byte) 

Sound: Step number hi (3 Byte) 

Sound: Frequency lo (3 Byte) 

Sound: Frequency _ hi (3 Byte) 

Temp storage: Time value _lo 

Temp storage: Time value hi 

Temp storage: Maximum value lo 

Temp storage: Maximum value hi 

Temp storage: Minimum value lo 

Temp storage: Minimum value hi 

Temp storage: Direction 

Temp storage: Step number lo 

Temp storage: Step number hi 

Temp storage: Frequency lo 

Temp storage: Frequency hi 

Temp storage: Pulse-wave width lo 

Temp storage: Pulse-wave width hi 

Temp storage: Waveform 

Temp storage 1 for POT function 

Temp storage 2 for POT function 

Temp storage for WINDOW operations lo/hi 
Memory pointer for SPRDEF & SAVSPR cmds 
Definit. mode for SPRDEF and SAVSPR cmds 
Line counter for SPRDEF and SAVSPR cmds 
Sprite number for SPRDEF and SAVSPR cmds 
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KARA KKK KK RK KKK KKK KR KKK KK KK KR KKK IKK AK KAI KR AKIRA KEK de ok 


1300: 4864 - 6143 Unused absolute RAM range 
1800: 6144 - 7167 Reserved for function key applications 
1c00: 7168 - 8191 Video matrix #2 (1 Kb, bit map color) if needed 


KKK KKK KKK KK KEK KKK KKK RAK KK KKK RRA KKK KK EK KR KAKA KEEKKE ARK KK KR 


2000: 8192 -16383 VIC bit map (8 Kb) if needed 


RKRKKK KKK KEK KKK KKK KEKE KKK KKK KKK ERK RAK KKK KARR ARERR KE KR RR RK RR A 


4000: 16384 Start of ROM 


KAKKKKK KKK KK KK KKK KK KKK KK KR KKK EKA KKK KKK KARA KEKE KKK RAK AKA KK KR 
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8.3 Alphabetical listing of the kernal routines 


As a user of the kernal and its subroutines you probably have found 
yourself looking for a certain routine or table. The kernal and the built-in 
monitor in the Commodore 128 consist of a large number of interesting and 
useful routines which you can integrate into your own programs in various 
ways. The problem lies in knowing that a certain routine exists, but not 
knowing where it can be found and how to access it. Before you start to 
look in the ROM listing for the routine you need, take a look through this 
table in which we have listed all of the important routines and tables which 


may be of interest to you. 


$c17C Adapt attribute RAM address 

SBOFC Addresses of the individual monitor commands (table) 
SB88A _ Base table for four number systems 

SC98E Bell: create tone 

SEF84 BSOUT output not to screen 

SE224 C128 mode routine 

$F81C | CMPARE routine for FAR operations RAM 
$F81C | CMPARE routine for FAR operations ROM 
SEE9B Change IRQ vector for tape operation 

$C3F4 Check Commodore key for time delay 
$F3A1 Check filename for burst mode 

SCA9F — Clear from cursor position to screen end 
$CA76 Clear from cursor position to line end 

SCA8B Clear from line start to line end 

SCBB1 _ Clear line overflow bit 

$C60A | Commodore/Shift character set switch 
$C892 Commodore/Shift switch to 40-column mode 
$C89F | Commodore/Shift switch to 80-column mode 
SEOCD | Copy NMI and IRQ routines to all banks 
$E723 | CKOUT routine for RS-232 output 

$F16C | CKOUT evaluation on serial bus 

$F127  CHKIN evaluation on RS-232 

$E795 CHKIN routine for RS-232 input 

$F1A9 CLOSE routine for tape operation 

SEEDO Check cassette recorder-keyboard 

$E980 Check tape header address for validity 
$E242 Check EXROM input form cartridge test 
$E61B Check RS-232 send parity 

SCAEA Clear or set auto-insert pointer 
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$C142 
SC4A5 
SC4CO 
SB8D2 
SB8C2 
SF755 
SE24B 
$C40D 
$C436 
SED51 
SF533 
SF50F 
SF533 
SCEOC 
$C320 
SC93D 
SCA52 
SCA24 
SF1E4 
SF1Cl1 
SC91B 
SC3DC 
SB050 
SBOCS5 
SB641 
SC96C 
SC8A6 
SO3F0 
SCAF2 
$C194 
SC62F 
SC6AD 
SC7B6 
SC9OBE 
SC8E3 
SO2A2 
SF800 
SF7C9 
SF 7AE 
SC6E7 
SE26B 
SE569 
SCC6A 


Clear screen window 

Clear screen line in 40-column mode 

Clear screen line in 80-column mode 

Convert acc contents into two ASCII characters (X/A) 
Convert acc to two ASCII characters and output 
Coordinate system status word 

Configure system as Commodore 64 

Copy a window line (routine: MOVLIN) 

Copy a window line in 80-column mode 

Copy start address for input/output operations 
Control message: output LOADING 

Control message: output SEARCHING FOR filename 
Control message: output VERIFYING 

Copy character set into VDC RAM 

Conversion from ASCII characters to POKE codes 
Delete character under cursor 

Delete current input line 

Define sceen as window 

Delete file entry from table 

Delete a file entry 

Delete character to the left of the cursor 

Delete line on screen (with move) 

Display monitor register contents 

Determine address of a monitor command 
Determine address of BRANCH commands 
Determine tab position 

Disable or enable Commodore/Shift 

DMA call routine of common area in RAM 
Enable block cursor 

Editor IRQ routine 

Evaluate decoder table according to shift pattern 
Evaluate and store keypress 

Execute control code 

Execute escape sequences 

Execute insert 

Fetch routine for FAR operations RAM 

Fetch routine for FAR operations ROM 

Fetch routine for LSV operations 

Fetch routine for character from filename 

Flash VIC cursor 

Function ROM test for C-128 mode 

Get bit from serial bus into carry flag 

Get cursor position and set 
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$C244 
SCB58 
S$C2 9B 
SEF5C 
SEF48 
SEF 67 
SE7CE 
SEEF 9 
SE5D6 
SE9BE 
SCO7B 
SCO7B 
SB046 
SBO21 
SB014 
SE1DC 
SC37C 
SEAEB 
SED 90 
SCCF6 
SO2E3 
SF841 
SO2CD 
SF82B 
SC94F 
SE43E 
SEFO6 
SF934 
SEF79 
SF106 
SEFO6 
SEF79 
SE503 
SF14C 
SF222 
SF188 
SF226 
SF7A5 
SE5FB 
SF7EC 
SEEEB 
SE24B 
SF781 


Get character from keyboard queue 
Get character and color at cursor position 
Get character from screen 

Get character from serial bus 

Get character from cassette 

Get character from RS-232 

GET routine for RS-232 

GETIN evaluation not over keyboard 
Give fast-mode pulse on serial bus 
Increment tape buffer pointer 
Initialize screen and editor 
Initialize editor and screen 
Initialization of monitor commands 
Initialize monitor for regular entry 
Initialize monitor after BREAK 
Initialize VDC registers 

Insert line on screen 

Interrupt routine for tape read 
Interrupt routine for tape write 
Insert function key string 
JMPFAR routine RAM 

JMPFAR routine ROM 

JSRFAR routine RAM 

JSRFAR routine ROM 

Jump to tab stop 

Kernal Acptr routine 

Kernal BASIN routine 

Kernal boot routine 

Kernal BSOUT routine 

Kernal CHKIN routine 

Kernal CHRIN routine 

Kernal CHROUT routine 

Kernal CIOUT routine 

Kernal CKOUT routine 

Kernal CLALL routine 

Kernal CLOSE routine 

Kernal CLRCH routine 

Kernal DMA call routine 

Kernal FSTMODE routine 

Kernal GETCFG routine 

Kernal GETIN routine 

Kernal GO64 routine 

Kernal IOBASE routine 
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SE109 
SFF17 
SC55D 
SE343 
SF 79D 
SF 786 
SF265 
SF772 
SF763 
SFFO5 
SEFBD 
SF867 
SFA17 
SE093 
SF65E 
SF744 
SFF3D 
SE4D2 
SF73F 
SF738 
SF75C 
SF731 
SF665 
SF75F 
SE33B 
SE4E0 
SF5F8 
SE526 
SE515 
SEO56 
SF53E 
SF66E 
SEO5B 
SC67E 
SC55D 
SF 63D 
SC5E1 
SC6CA 
SB976 
SE9FB 
SF3EA 
SF27B 
SB406 


Kernal IOINIT routine 

Kernal IRQ routine 

Kernal KEY routine ($FC87 in International versions) 
Kernal LISTN routine 

Kernal LKUPLA routine 

Kernal LKUPSA routine 

Kernal LOAD routine 

Kernal MEMBOT routine 

Kernal MEMTOPFP routine 

Kernal NMI routine 

Kernal OPEN routine 

Kernal PHOENIX routine 

Kernal PRIMM routine 

Kernal RAMTAS routine 

Kernal RDTIM routine 

Kernal READST routine 

Kernal RESET routine 

Kernal SECND routine 

Kernal SETBNK routine 

Kernal SETFLS routine 

Kernal SETMSG routine 

Kernal SETNAM routine 

Kernal SETTIM routine 

Kernal SETTMO routine 

Kernal TALK routine 

Kernal TKDA routine 

Kernal UDTIM routine 

Kernal UNLSN routine 

Kernal UNTLK routine 

Kernal RESTOR routine 

Kernal SAVE routine 

Kernal STOP routine 

Kernal VECTOR routine 

Key repeat evaluation 

Keybaord matrix read 

Keyboard row selection: RUN/STOP - SHIFT 
Keyboard read evaluate 

Keyboard buffer prepare for function key 
Load bank pointer and program counter from zero page 
Load program from cassette 

LOAD routine in burst mode 

LOAD routine from serial bus 

Monitor command: . (assemble a line) 
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$B194 
SB1AB 
SBA90 
SB406 
SB231 
SB599 
SB3D8 
SB1D6 
SB2CE 
SBIDF 
$B337 
SB152 
SB050 
$B337 
$B234 
SB337 
SBOE3 
SB981 
SE805 
SE8A9 
SE878 
SF915 
SFOCB 
SEFFO 
SF040 
SE75C 
SCC2F 
SFD15 
SCC27 
SE3E2 
SC76F 
SC2BC 
SC72D 
SF521 
SF71E 
SCE8C 
SF 9OFB 
SEAA1 
$C363 
SE69D 
SCCA2 
SF4C5 
SE9F2 


Monitor command: ; (change register) 

Monitor command: > (change memory contents 
Monitor command: @ (disk command) 

Monitor command: A (assemble a line) 

Monitor command: C (compare memory areas) 
Monitor command: D (disassemble memory) 

Monitor command: F (fill memory area) 

Monitor command: G (Jump to XXXX without return) 
Monitor command: H (Search for memory contents) 


. Monitor command: J (Jump to XXXX with RTS) 


Monitor command: L_ (Load a program) 

Monitor command: M (display memory contents) 
Monitor command: R (display register contents) 
Monitor command: S_ (store a program) 

Monitor command: T (move memory areas) 
Monitor command: V (compare program with memory) 
Monitor command: X (exit) 

Monitor command: Convert number to different system 
NMI routine for RS-232 

NMI routine for RS-232 output 

NMI routine for RS-232 input 

Output boot sector message 

Open file on serial bus 

OPEN routine for tape operation 

OPEN routine for RS-232 

Output in RS-232 buffer 

Output acc at cursor position 

Output combined accent 

Output space at cursor position 

Output byte on serial bus 

Output carriage return to screen 

Output character at cursor position 

Output character on screen 

Output found filename on screen 

Output system and control messages 

Prepare byte output on serial bus 

Prepare acc contents in two ASCII characters (-99) 
Prepare cassette synchronization | 
Perform linefeed 

Process received bit from RS-232 

Program function key 

Read data block in burst mode 

Read data block from tape 
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SF4BA 
SC258 
SE8DO 
SE987 
SEE57 
SEEBO 
SEO0O 
SC651 
SC77D 
SFOBO 
SFCAA 
SF 9B3 
SC980 
SE5FF 
SE68E 
SE672 
SE6D4 
SEFB7 
SC3A6 
SF5C8 
SE99A 
SCBC3 
SF202 
SCACA 
SCABC 
SCAE2 
SF23D 
SCA14 
SED5A 
SCB37 
SCDF9 
SC7E5 
SC7EC 
SCB93 
SC8D5 
SCD57 
SC33E 
S$C150 
SC875 
SC867 
SC854 
SC85A 
SCCOO0 


Read data byte in burst mode 

Read an input line terminated by RETURN 
Read program header from cassette 
Recalculate tape-end address 
Recorder operation end 

Recorder motor off 

Reset routine 

Repeat keyboard logic 

Reset quote mode 

Reset CIAs to RS-232 

Reset decoder table set vectors 
Recreate DOS output buffer 

Reset tab stops 

RS-232 output 

RS-232 data-bit number calculate 
RS-232 NMI status set 

RS-232 start bittest 

RS-232 character output 

Scroll screen up 

SAVE routine for tape operation 
Search tape header for name 

Search for end of input line 

Search in logical file number table 
Scroll up 

Scroll down 

Scrolling permit or prohibit 

Set standard I/O devices 

Set window borders 

Set bit counter for serial output 

Set or clear bell pointer 

Set attribute address for attribute RAM 
Set character color in 40-column mode 
Set character color in 80-column mode 
Set line overflow bit 

Set cursor flash mode 

Set cursor at current column 

Set cursor to end of line 

Set cursor in screen windor at HOME position 
Set cursor to left in window to left 

Set cursor up in window 

Set cursor right in window 

Set cursor down in window 

Set cursor one position left in window 
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SCBED 
$C932 
SCD6F 


SFODS | 


SC961 
SE573 
SC8BF 
$C207 
SF39B 
SO2AF 
SF 80D 
SF7BC 
SCD2C 
SFA65 
SFA40 
SF7FO 
SCEB2 
SC6DD 
SEEA8 
SCE74 
SCE8E 
SC78C 
SEO4B 
SBOE6 
SE850 
SE2F8 
SE2C7 
SFCC3 
SCB74 
SC2FF 
SB7A5 
SEA8F 
SE ODF 
SC8DC 
SCB1A 
SCB2E 
SCBOB 
SCB21 
SCB48 
SCB3F 
SC8CE 
SC8C7 
SCAFE 


Set cursor one position right in window 
Set old cursor address again 

Set cursor color at cursor position 

Set filename to serial bus 

Set or clear tab stop 

Set clock frequency to IMHz 

Set or clear reverse mode 

Set IRQ register 

Set program end address after LOAD 
Stash routine for FAR operations RAM 
Stash routine for FAR operations ROM 
Stash routine for LSV operations 

Switch 40/80 column modes 

System IRQ routine 

System NMI routine 

Table of configuration values 

Table of function key assignments 

Table of funtion key codes 

Table of IRQ vectors for tape operation 
Table of initialization values for 40-column 
Table of initialization values for 80-column 
Table of control codes 

Table of MMU initialization values 

Table of monitor keywords 

Table of timer constants for RS-232 baud rate 
Table for VDC initialitzation 

Table for VIC initialitzation 

Test accent keys and combine accents 
Test line overflow bit 

Test quote character and set pointer 

Test separator between command operands 
Test the STOP key 

Test for tape button 

Turn off cursor flash mode | 
Turn cursor flash off for 40-column mode 
Turn cursor flash on for 40-column mode 
Turn cursor flash off for 80-column mode 
Turn cursor flash on for 80-column mode 
Turn off 80-column reverse 

Turn on 80-column reverse 

Turn underline mode off 

Turn underline mode on 

Turn underline cursor on 
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SCO6F 
SFE34 
$c000 
SC9ODE 
SC7B6 
SF3EA 
SEA7D 
SETEC 
SE5BC 
SEQ9E9 
SE9C8 
SEA15 
SED69 
SE919 
SE919 
SEAI1C 
SEE2E 


Vector table to ASCII decoder tables 
Vector table to DIN decoder tables (International Versions only) 
Vector table for editor routines 

Vector table for editor routines 

Vector table for control code routines 
Verify routine in burst mode 

Wait for tape I/O termination 

Wait for end of RS-232 tranfer 

Wait for fast-mode response from bus 
Wait for RECORD & PLAY on Datasette 
Wait for button on datasette 

Write tape buffer to tape 

Write bit to tape 

Write data block to tape 

Write header to tape 

Write data block to tape 

Write the header 
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$.4 The Token Table 


The Commodore BASIC 7.0 is, in contrast to BASIC 2.0 on the C-64, 
extended with a number of new commands and instructions. As you know, 
BASIC commands are not saved in their text forms, but in the form of 
so-called "tokens". In order to ensure unambiguous identification of tokens 
and other text characters, the code values 128 to 256 are reserved for the 
tokens. This is exactly 128 possible values with which a token can be 
indicated. But BASIC 7.0 has more than 128 different command keywords. 
For this reason, there are some tokens which require two values to denote a 
keyword. The BASIC interpreter recognizes the two values as a token. Here 
is a table of all the command keywords and the token values associated with 
them. 


Command Token Command Token 


END $80 FOR $81 
NEXT $82 DATA $83 
INPUT # $84 INPUT $85 
DIM S86 READ $87 
LET $88 GOTO $89 
RUN S8A IF S8B 
RESTORE $8C GOSUB $8D 
RETURN S8E REM S8F 
STOP $90 ON $91 
WAIT $92 LOAD $93 
SAVE $94 VERIFY $95 
DEF $96 POKE $97 
PRINT# $98 PRINT $99 
CONT SOA LIST S9B 
CLR $9C CMD $9D 
SYS SOR OPEN SOF 
CLOSE SAO GET SA1 
NEW SA2 TAB ( SA3 
TO SA4 FN SA5 
SPC ( SA6 THEN SAT 
NOT SA8 STEP SA9 
+ SAA - SAB 
= SAC / SAD 
e SAE AND SAF 
OR SBO > SB1 
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Command Token Command Token 
= SB2 < SB3 
SGN SB4 INT SB5 
ABS SB6 USR SB7 
FRE SB8 POS SB9 
SOR SBA RND SBB 
LOG SBC EXP SBD 
COs SBE SIN : SBF 
TAN SCO ATN SCl 
PEEK SC2 LEN SC3 
STRS SC4 VAL Sc5 
ASC SC6 CHRS SC7 
LEFTS$ SC8 RIGHTS SCQ 
MIDS SCA GO SCB 
RGR $cc RCLR SCD 
POT SCE $02 BUMP SCE $03 
PEN SCE $04 RSPPOS SCE $05 
RSPRITE SCE $06 RSPCOLOR SCE $07 
XOR SCE $08 RWINDOW SCE $09 
POINTER SCE SOA JOY SCF 
RDOT SDO DEC SD1 
HEXS SD2 ERRS$ SD3 
INSTR SD4 ELSE SD5 
RESUME SD6 TRAP SD7 
TRON SD8 TROFF SD9 
SOUND SDA VOL SDB 
AUTO SDC PUDEF SDD 
GRAPHIC SDE PAINT SDF 
CHAR SEO BOX SE1 
CIRCLE SE2 GSHAPE SE3 
SSHAPE SE4 DRAW SE5 
LOCATE SE6 COLOR SE7 
SCNCLR SE8 SCALE SEQ 
HELP SEA DO SEB 
LOOP SEC EXIT SED 
DIRECTORY SEE DSAVE SEF 
DLOAD SFO HEADER SF1 
SCRATCH SF2 COLLECT SF3 
COPY SF4 RENAME SF5 
BACKUP SF6 DELETE SF 7 
RENUMBER SF8 KEY SF9 
MONITOR SFA USING SFB 
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Command Token Command Token 
UNTIL SFC WHILE SFD 
BANK SFE $02 FILTER SFE $03 
PLAY SFE $04 TEMPO SFE $05 
MOVSPR SFE $06 SPRITE SFE $07 
SPRCOLOR SFE $08 RREG SFE $09 
ENVELOPE SFE SOA SLEEP | SFE SOB 
CATALOG SFE SOC DOPEN SFE SOD 
APPEND SFE SOE DCLOSE SFE SOF 
BSAVE SFE $10 BLOAD SFE $11 
RECORD SFE $12 CONCAT SFE $13 
DVERIFY SFE $14 DCLEAR SFE $15 
SPRSAV SFE $16 COLLISION SFE $17 
BEGIN SFE $18 BEND SFE $19 
WINDOW SFE S$1A BOOT SFE S$1B 
WIDTH SFE $1C SPRDEF SFE $1D 
QUIT SFE S1E STASH SFE S1F 
FETCH SFE $21 SWAP SFE $23 
OFF SFE $24 FAST SFE $25 
SLOW SFE $26 
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8.5 The Character Set 


On the following pages you find two character sets, the normal 
Commodore character set (the only one in the American version) and the 
DIN (German [Deutshe] Industry Normal) foreign language set. They 
contain information about the address at which the matrix of the character is 
located, as well as the value of the POKE code in parentheses. 


The C-128's sold in Europe contain two character sets, the normal 
Commodore character set and in the German versions a DIN (German 
[Deutshe] Industry Normal) character set for foreign languages. C-128s 
sold in other foreign countries may have a different International character 
set than the one presented here, we have checked only the American and 
German versions. See the differences in the ROM listing starting at $FC80 
thru $FEFF and at $C012. Notice that the KEY vector at $FF9F in the 
Kernal Jump Table points to the same location but that the address at that 
location ($C012) is different for the American ($C55D) and German 
($FC87) versions. The German version jumps to the standard keyboard 
matrix reading routine ($C5S5D) at address $FCC3. On the International 
versions you can switch between the two character sets by pressing the 
ASCII/DIN key (CAPS LOCK on American versions). The key is polled 
through interrupts, meaning that it is recognized immediately when it is 
pressed. The character set on the 40-column screen changes immediately 
and on the 80 column screen the computer pauses for about one second. 
This is because the computer has to copy the character set to the VDC 
(80-column controller) memory because this controller does not get its 
characters from the ROM. 


Physically the two character sets, ASCII and DIN, are at the same 
address, namely $D000. When the ASCII/DIN key is pressed, the two 
character sets are exchanged via hardware. 


To save space in the book, we have not pictured the reverse characters. 
To obtain the address of these characters, add the offset $0400 to the base 
address of the normal character. 


You can easily change the character set for the 80-column controller by 
changing the corresponding addresses in the VDC RAM. Chapter 5 contains 
more information about this and other aspects of the VDC. 


You can also change the VIC character set by changing the character 


set pointer in CIA 1. More information about this can be found in the 
chapter on the VIC chip, Chapter 2. 
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8.6 The Keyboard Matrix 


The keyboard of the C-128 is designed in the form of a matrix. Imagine 
it as a network (or grid) of lines. In the horizontal plane you have 11 lines 
and in the vertical, 8 lines. When you press a key, you close the normally 
open contact between a horizontal and a vertical line. The computer can then 
recognize which key was pressed. 


That's the basic principle of the keyboard matrix. In practice it is much 
more complicated since a connection is not available on an I/O component 
for each of the 11 horizontal and 8 vertical lines. The Commodore 128 has 
two components with a total of three ports that have the task of reading the 
keyboard matrix. Lines PAO-PA7 and PBO-PB7 are available on CIA 1. 
These 16 lines can be programmed as either input or output. Theoretically it 
is also possible to transfer 16-bit values via these lines. Lines PAO-PA7 are 
responsible for the first 8 matrix lines of the keyboard circuit. The missing 
three lines, believe it or not, are connected to the VIC chip. 


The VIC chip built into your C-128 has 2 more registers than the 
component used in the Commodore 64. The first is the register at address 
$D030, is responsible for the clock frequency at which the computer will 
operate (1 or 2 MHz). This register does not interest us here. The other new 
register is at address $D02F. The additional three keyboard matrix lines are 
polled via this register. The register offers us bits 0-3 for this, but only bits 
0-2 are used, since only three additional matrix lines need to be polled. The 
8 matrix columns are addressed via the lines PBO-PB7 of CIA1 via port B. 


The actual keyboard polling follows this pattern. Port A of CIA 1 (lines 
PAO-PA7 are brought low; that is, the register is loaded with the hex value 
$00). In addition, the remaining three lines must also be loaded with a low 
value in the VIC register. Port B (lines PBO-PB7) of CIA 1, switched to 
input, is then read. If a key is pressed at some point, one of the input lines 
on port B will also be switched to a low level. This is recognized by 
reading port B and finding a value other than the high value ($FF). At this 


point, we can determine that a key was pressed. Which key it is cannot yet 
be determined. 


_ The exact position within the keyboard matrix is then determined by 
bringing each of the 11 matrix lines low in turn and reading port B each 
time. Now we can tell in which line and column of the matrix the key was 
pressed. A count register is used during this process in order to record the 
assignment number of the pressed key. Polling the joystick is done in the 
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Same manner as the normal keyboard polling because the joystick 
connections are wired in parallel to some keys on the keyboard. 


In the schematic on the next page you can recognize the physical layout 
of the keys and their connections to the three ports. One point of interest is 
that, while the keys on the keypad produce the same results on the screen as 
the regular digit keys, they can be differentiated from them. This applies for 
the cursor control keys and the other duplicate keys on the keyboard. 


452 


Abacus Software C-128 Internals 


$DCO01 Port B CIA 1 


| i a Tt Pee 


$DCO0 Port A CIA1 

TL 
Toe 
TL, 
Tbe 
Ths 
Li. - 
L 
= 


io 
rie eek de 
Too odo od 





Numeric 
Keypad 


Cursor keys 
Block 





453 


Abacus Software C-128 Internals 
Ce re ee ee ee 


8.7 The Computer Modes 


As you must know by now, your Commodore 128 contains three 
computers in one. You can select whether you want to have a: 


* CP/M 3.0+ computer 
* Commodore 128 
* Commodore 64 


The various components in the computer are switched on or off 
depending on the computer mode. In order to show you graphically which 
components are involved, we have made the following three figures. 
Shaded areas designate the devices active in the given mode while unshaded 
areas indicate those which are inactive. Inactive means that the MMU does 
not permit access to these components. In the C64 mode, access to the 
MMU itself is prohibited (for compatibility reasons). 
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8.7.1 The power-up modes 


On the preceding three pages you see three diagrams. These schematic 
drawings of the chips and circuits in your Commodore 128 should make it 
clear to you which ROMs and controllers are active in each of the three 


modes of operation. The active components in each operating mode are 
shaded. 


As a rule, the computer always tries to enter the 128 mode when it is 
turned on. But there are some special cases in which the computer is 
directly switched to a different operating mode. This is the case when you 
insert a CP/M diskette into the disk drive. The CP/M mode with the Z-80 
processor active is then enabled via the boot routine in the 128 mode. 
Another possibility arises when you insert a Commodore 64 cartridge in the 
expansion port. This is also noted during the power-up procedure and the 
computer switches directly to the C-64 mode responsible for this cartridge. 


Another way of entering the C-64 mode is by way of the Go 64 
command. After an appropriate request for confirmation of the command, 
the computer is switched to the C-64 mode. It is also possible to get around 
the BASIC interpreter's confirmation request and enter the C-64 mode 
directly. You can do this by directly addressing the kernal routine for 
reconfiguration with a SYS command. The appropriate SYS command is: 


SYS $7931 or SYS DEC("E24B") 


These are, so to speak, the "official" options for entering another 
operating mode, especially the C-64 mode. But there are a few "unofficial" 
ways, which we discovered by accident while documenting the kernal and 
BIOS. 


One such method involves the Commodore key, designated with the 
Commodore logo and found in the lower left-hand corner of the keyboard. 
If you hold this key down during the power-up procedure, the computer 
will enter the C-64 mode directly without trying to load a boot sector from 
the diskette or entering the 128 mode. The obligatory confirmation question 
is also avoided with this method. This trick with the Commodore key works 
not only when the computer is being turned on, but also if you hold it down 
while pressing the reset button on the right side. 
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Another interesting option affecting the power-up state of the computer 
involves holding down the RUN/STOP key while turning the computer on. 
This causes the computer to enter the 128 mode, but control is immediately 
passed to the built-in monitor. Furthermore, the kernal boot routine is not 
executed first. We say "first" because the test to see if the RUN/STOP key 
is pressed is performed before the kernal boot routine is executed and the 
test routine then jumps to the monitor in the form of a JSR command. When 
you exit the monitor with the X command, then the computer resumes 
operation with the normal boot routine and general initialization, provided 
you have not changed the return address on the stack. 


These methods are of interest both to the assembly-language 


programmer and to the user who wants to use his old C-64 programs 
without having to go through the boot routine. 
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Chapter 9: The Hardware 


Imagine the following tricky situation in which the developers are asked 
to construct a computer that, on the one hand, is completely compatible with 
the existing C-64, and on the other hand, is to be outfitted with completely 
new, state-of-the-art features. 


This task is difficult enough, but as icing on the cake, a Z-80 
microprocessor should be added to the whole thing in such a way that it can 
peacefully coexist in the same system with the other processor. 


You can imagine the difficulties involved. But this idea is not entirely 
new. Some of you no doubt remember the infamous CP/M cartridge for the 
Commodore 64, which was supposed to allow it to use the CP/M operating 
system. This expansion contained a Z-80 processor in addition to a few 
control components. 


So you take a C-64, a CP/M cartridge, an additional 64K of memory, a 
new operating sytem and BASIC, mix them all together and let it all simmer 
for a few months. 


We have no doubt that the first C-128 prototype used a C-64 as a basis. 
The tough part must have been in trying to put the whole thing together on a 
single board. 


Fortunately, Commodore has its own semiconductor manufacturing 
company (MOS). It was clear that there was no way the necessary control 
components for the coordination of the processors and switching both 
memory banks and operating systems would fit onto a reasonably-sized PC 
board using current TTL technology. MOS had to design a special 
large-scale intergrated circuit, the MMU 8722, to handle all of the 
management logic. 


This undertaking proceeded very well when the VIC chip, taken from 
the C-64 (but now known as the 8564), and the 6510 processor (now the 
8502) were submitted to redesign. A new video controller (8563), which 
can display 80 columns in color, was added. What good is such a capable 
computer, which can run CPM, if it is limited to 40 columns per line? 


The address manager of the C-64 was refurbished to become the 8721. 


It has 23 (significant) input lines and 16 outputs. We will discuss the details 
of this and other devices shortly. 
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The question will no doubt arise, as to why we have not included a 
complete circuit diagram in this book. The diagram takes up 4 sheets of 
normal-sized paper; each so full of components, that reduction would be out 
of the question. We therefore decided to divide the circuit into blocks, into 
bite-sized and (hopefully) clear function groups within the text. 


In general the diagrams are designed so that the signal flow is from left 
to right. At the left you find all input lines and at the right all of the output 
lines. The I/O block is an exception to this. Here it was not possible to 
retain this principle because space was too scarce and the interfaces are not 
clearly assigned as input or output. 


Signal names prefixed by a minus sign are active low, meaning that 
they are "true" (or active) when the logical signal =0. Bus lines are 
emphasized in the diagrams. Everything having something to do with the 
address bus is dotted, the data bus has diagonal stripes, and all of the 
remaining bus-like structures are checkered. 


The components filled with the rings are intended to indicate that 
something special happens to the input signals which cannot be represented 
individually. In general, there is not a single IC behind it, but a whole 
system of them. 


The CPU 


Naturally there isn't just one processor, but two. The block diagram on 
the next page should, despite its simplicity, convince you that a good deal of 
switching effort is required to allow two microprocessors to use the same 
system components, even if not at the same time. 


It is clear that only one processor can be running at any given time. The 
other must wait during this period. The trick is to get the processor in 
question to actually stop (that is, to interrupt it in such a manner that it can 
resume its work at a later time without any problems) and not crash when 
the system bus is blocked off. This can be done in various ways: 


The bus must be given up (and this applies to both processors) when 
the 40-column video controller has to access the RAM, in order to refresh 
the screen. The lines BA (Bus Available) and AEC (Address Enable 
Control), both of which come from the VIC chip, are used to signal this 
condition to the switching logic. 
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a 
possibility is offered by the DMA line (Direct Memory 


Access), which comes from the expansion slot. Here too, both processors 
the bus because the system bus is controlled from the 


outside in these cases, by a RAM expansion or other add-on hardware. 


The programmer (or CP/M) is responsible for the third variant. Here the 
two processors can be selected with the -Z80EN line. This signal comes 


from the MMU. 


The meaning of additional input lines: 


Z80PHI 
-RES 


-IRQ 


-NMI 


is the system clock created by the VIC for the Z-80. 
resets the processors, which causes the Z-80 to start 
execution at address 0, and the 8502 to start at the reset 
vector in the ROM. 

is the interrupt line connected to both processors by 
means of which devices like the CIAs can signal the 
occurrence of an event. 

is also an interrupt, but only for the 8502. This signal 
is derived from the RESTORE key. 


CASS SENSE comes from the Datasette and indicates that the 


PLAY button is pressed. 


CAPLK SENSE indicates the status of the SHIFT LOCK key . 


1-2MHZ 
The output lines: 


-M1 


-Z80V/0 


DO-7 
AO-15 
LORAM 


is the system clock for the 8502 and is provided by the 
VIC. This line supplies a clock signal of 1 or 2 MHz, 
depending on bit 0 in register 48 of the VIC. 


tells connected peripheral components whether data is 
to taken from the bus or whether they are to supply the 
bus with data on their part. 

is a Z-80 specific signal and means that the processor 
is currently fetching a command byte (in contrast to an 
operand) from the data bus. This line is used to 
prevent access to peripheral ICs during M1 (which 
could otherwise happen because the I/O addresses in 
the hardware are "normal" memory addresses). - 
signals an I/O access of the Z-80 by means of the 
command IN or OUT. The lock-out mentioned above 
is removed by this signal. 

comprise the data bus. 

make up the address bus. 

puts RAM in place of the BASIC ROM in the C-64 
mode. 
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HIRAM is like LORAM, except the kernal ROM is replaced by 


RAM. 
CHARENmakes it possible to read the character generator. 
Normally the color memory and I/O lie in this range. 
CASS WRT is the write line for the Datasette. 
CASS MTR controls the Datasette motor. 


The address logic 


In order to give you an idea of the complexity of this function block, we 
have illustrated the complete memory layouts for the C-64 and 128 modes 
on the following two pages. Try to imagine the memory in layers. One layer 
applies as the user surface, in which changing combinations are possible. 
The MMU is responsible for the global division (operating mode, bank 
selection, processor). Depending on this, the AM brings the desired 
portions to the surface, that is, it generates the necessary selection signals. 


In connection with this we would like to list the pin layouts of these two 
ICs, as well as a description of each pin: 


2 -RES 

3-10 TA8-15. This is the translated address bus. The address A8-15 are 
"translated" depending on the configuration. For example, the 
address $0000 must be converted to $D000 during Z-80 operation, 
because part of the BIOS is located here and after reset the Z-80 
starts execution at address 0. 

11412 -CASO and -CAS1. These two signals are responsible for the 
selection of the RAM bank, depending on register 1. 

13-15 VOSEL, ROMBANKHI, and ROMBANKLO. These signals are 
used to control the AM and result from the combination of bits 0-5 
of register 1. 

16 GAEC results from the combination of DMA and AEC and permits 
the MMU to take the lines LA8-15 from the bus. 

17 MUX is created by the VIC. The MMU uses this to activate the 
signals -CASO and -CAS1. 

18-31 AOQ-15, whereby the lines A6/7 and A4/5 are externally combined 
into one signal. The MMU also decodes its selection signal from 


the address bus. 
35-42 DO0-7 
43 -Z80EN reflects bit 0 of register 5 and is responsible for selecting 


the processor. 
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44 -FSDIR corresponds to bit 3 of register 5. Here the data direction 
of the serial bus -SRQIN, which is responsible for the data clock 
for the high-speed transfer using the 1571 disk drive, is switched. 

45-46 -GAME and -EXROM come from the expansion slot and can be 
read as bits 4 and 5 of register 5. 

47 64/-128 is a control line for the AM and corresponds to bit 6 of 
register 5. 

48 40/80 comes from the keyboard and can be read as bit 7 of register 
5. 


With a few exceptions we will simply list the AM pins, since no set 
assignment can be given to many of them because of the complex internal 
combination possibilities. Imagine how many combinations have to be 
checked with 23 input bits (about eight million). Naturally, not that many 
are used, since the IC has only 16 output lines, of which a maximum of 
only four can reasonably be active at any given time. 


You can easily recognize the function of the outputs from the names and 
the block diagrams, since they are really only chip select lines. 


1-6 A15-10 | 

7 VICFIX. This input is tied to ground on the board via jumper J2. 
The significance of this line is not clear. 

9 AEC 


10 R/-W. This signal is evaluated such that, at least in the C64 mode 
(nothing is known about the C128 mode), write access to the ROM 
address area always write to the "hidden" RAM, even if it is not 
explicitly selected. 

11-12 -GAME and -EXROM exchange the BASIC and/or kernal ROM for 
the software found in a cartridge in the C64 mode, as is the case for 
games, for example. 


13 -Z80EN 

14 -Z801/O , 

15 64/-128. Here it is decided which kernal or BASIC is active. 
16 VOSEL 

17-18 ROMBANKHI and ROMBANKLO 

19-20 MA45 

21 BA 


22-23 LORAM and HIRAM 
25 CHAREN 
26 -VA14 
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27 128/-256. This signal indicates what type of ROM is in the sockets 
ROM1 and ROM3. It is possible to have two 16K ROMs in the 
sockets ROM1/4 and ROM2/3 form one 32K ROM each. It is 
possible to specify one or the other possibility during production. 
In the second case, the free sockets ROM2 and ROM4 are not free 
for other purposes! | 

30-31 -ROML and ROMHI go to the expansion slot. 

32 CLRBANK switches between two possible banks of the color 
RAM. The dependency of this signal is not yet known. -VA14 may 
play a role here. 

33 -FROMI (Funtion ROM Internal) 

34-37 -ROM4 to -ROMI 

38 -IOCS is the general selection for all peripheral ICs. The sole 
exception is the MMU, which decodes itself. 

40 -DWE 1s the write signal for the RAM banks. 

41 -CASENB is the address strobe for the RAM banks (simultaneous 
selection signal). 

42 -VIC 

43 -IOACC signals to the VIC an access to a peripheral IC, which 
brings the system clock down to 1 MHz if it was previously at 
2MHz. This is necessary because the peripheral components can be 
supplied only with 1MHz, so this signal synchronizes them to the 
8502. 


44 -GWE is the write signal for the color RAM. 

45 -COLORAM 

46 -CHAROM 

47 -CAS is actually responsible for the creation of -CASENB. 


The greatest portion of the address logic is described in the pin 
descriptions. Worthy of mention is the funnel-shaped symbol in the upper 
right-hand corner of the diagram. This is the address multiplexer. As you 
may already know, not all of the address lines are applied to the dynamic 
RAMs at once, but one half at a time to the same lines. For this reason, the 
two halves of the address bus must be brought together. The decision as to 
which half is applied to the lines is taken care of by the MUX signal. The 
RAM chip recognizes the bottom half on -RAS and the top half on -CAS. 


The RAM 
The RAM consists of two banks of 64K each. No more are possible! 


Banks 2 and 3 indicated in the memory map are to be understood as external 
expansion and are accessed in a different manner. 
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The ROMs 


The function block contains the combined "intelligence" of the 
computer. The selection signals for the individual ROMs come from the 
AM. Worthy of mention is the function of the 64/128 signal. If a32K ROM 
is inserted in ROM1, this signal switches between the two halves. The 
lower half contains the kernal for the C-128 and the upper half contains the 
entire operating system software for the C-64. Jumper J6 must be connected 
on the PC board for this. 


TA12 provides for the conversion of the area at $D000 to $0000 for the 
Z-80 operation. 
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40 column 


The jumble of bus lines in this section is because the VIC controls the 
system bus itself in order to get the information necessary to refresh the 
Screen picture from the RAM. To do this, it must stop the currently active 
processor by means of the BA and AEC lines, so that no concurrent RAM 
accesses can occur. As much as possible, however, it chooses a time when 
the processors will not be disturbed. It uses the clock gaps during which the 
computer is not accessing the bus. An exception to this is when sprites are 
displayed. Here the VIC must get the entire point map, which in the case of 
a “normal” character it would get from the character generator, from the 
RAM, which naturally takes time. 


So that the VIC "knows" when it may do something, it is in charge not 
only of the screen display, but of the clock generation for the whole 
computer. So at any time it is informed about the current state of the system. 
To display a character, it first gets the ASCII value of the character from the 
RAM, then the corresponding bit pattern from the character generator, and 
finally the color information from the color RAM. 


This last point, by the way, is a special case: The color RAM is 
connected directly to the VIC via its own four-bit wide data bus, so that the 
ASCII value and the color arrive simultaneously when the refresh address is 
given. 


Another interesting feature is the composition of the RAM address. It is 
placed on the bus in two halves, whereby the base address of the video 
RAM is formed from bits VA6-7 of the VIC and bits VA14-15 of CIA2. 
The video RAM is therefore movable within a large area. 


In the upper left-hand corner is the master clock. This is an oscillator 
running at 17.73447 MHz. This strange frequency was chosen for the color 
creation in the PAL standard. The VIC produces the various system clocks 
from this clock. 


If by chance you are familiar with the VIC in the C-64, you may notice 
something unusual about this version of the VIC. A bus heads to the right 
with the designation KO-2. These lines are responsible for the column 
selection of the ten-key pad. 


We should mention the little box in the lower left corner. This is a 
device similar to the buffer in the RAM block for the lower half of the 
address bus. 
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80 column 


Although this section represents one of the most interesting features of 
the computer, it offers little in the way of circuit technology. The reason for 
this is the 80-column video controller which MOS (a subsidiary of 
Commodore) developed for this computer. This video controller contains all 
of the logic for accessing the video RAM, color RAM, and character 
generator, as well as the necessary circuitry for creating the screen picture. 


The reason the function diagram is so uncluttered is that the interface to 
the system consists only of the data bus and one address line. But the main 
reason is that only a single memory component can be seen, namely a 
dynamic RAM with 16K. Actually there two IC's with 4 bits each. But 
there is nothing resembling a character generator or color RAM. 


The trick lies in the fact that everything is done in the RAM, even the 
character generator. Since this normally consists of a ROM, because the bit 
patterns of the characters are normally unchangeable, the character generator 
from the 40-column section is copied into this RAM when the 80-column 
mode is switched on. 


You may wonder how the data gets to the video RAM since it has no 
direct connection to the system. All communication with the video RAM is 
done through the controller. First, the controller loads the low order byte of 
the register that specifies the RAM address. Next the data is loaded. Then 
the desired address is passed, followed by the data. The controller ensures 
that the data end up in the right place. This isn't the fastest way of doing 
things, of course, but it works. 


The little box to the left of the video controller 1s an oscillator that runs 
at 16 MHz. This is the normal frequency for the Dot Clock in 80-column 
monitors. The two boxes in the lower middle create a clean reset signal 
(from which -DRESET is derived. -DRESET is used to reset one of the 
built-in disk drivesand to form the -NMI pulse from the RESTORE key. 
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This section looks quite chaotic largely because all of the connections to’ 
the outside world run through it. 


Let's start at.the top left. There we find the two joystick ports. Their 
digital components, the stick movement and fire button, are wired in parallel 
to the keyboard matrix. This is why characters appear on the screen when 
the stick is moved. The analog components (such as those for the paddles) 
are multiplexed by an analog switch because the SID has only two analog 
inputs, but two pairs must be read. 


Below the analog switch is the CIA1. This has by far the largest share 
of work to do. It is responsible for reading the keyboard, as well as the 
serial bus. Here Commodore makes an improvement over the C-64. 
Instead of constructing the data bytes from the disk drive one bit at a time, 
this task is automatically assumed by the CIA. An entire byte is simply 
loaded into the shift register and the CIA shifts it out to SP automatically. It 
works the same way in the opposite direction. The bit speed 1s dependent on 
the clock at SP. 


Here the -FSDIR signal from the MMU takes on significance. It is, as 
already mentioned, a direction switch for this same clock which is always 
supplied by the sending device, sometimes the computer and sometimes the 
disk drive. This clock is sent over the -SRQIN line since this line is not 
used by devices that cannot use the fast serial mode. 


A good half of CIA2 is dedicated to the user port, but part of it is also 
used for the serial bus. Bits VA14-15 are also created for switching the 
video RAM. 


On the left side is a signal name which you probably cannot place 
(normally the signal names are self-evident). This is 9VAC. This is nothing 
other than 9-Volt alternating current from the power supply. What purpose 
does this voltage serve on the board? Quite simple: This signal is rectified 
and limited and used as the clock for the real-time clocks in the CIAs. 


This is the end of our little excursion into the hardware. We hope that 
you have gained at least some insight into the operation of the computer. 
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Chapter 10: Decimal-Hexadecimal-Binary Conversion Table 


Dec. 
#000 
#002 
#004 
#006 
#008 
#010 
#012 
#014 
#016 
#018 
#020 
#022 
#024 
#026 
#028 
#030 
#032 
#034 
#036 
#038 
#040 
#042 
#044 
#046 
#048 
#050 
#052 
#054 
#056 
#058 
#060 
#062 
#064 
#066 
#068 
#070 
#072 
#074 
#076 


Binary 

00000000 
%00000010 
00000100 
00000110 
%00001000 
$00001010 
$00001100 
%00001110 
$00010000 
%00010010 
$00010100 
%00010110 
00011000 
$00011010 
$00011100 
$00011110 
00100000 
$00100010 
00100100 
00100110 
$00101000 
00101010 
$00101100 
00101110 
$00110000 
$00110010 
$00110100 
$00110110 
$00111000 
$00111010 
$00111100 
$00111110 
01000000 
01000010 
01000100 
601000110 
$01001000 
$01001010 
601001100 
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Dec. 
#001 
#003 
#005 
#007 
#009 
#011 
#013 
#015 
#017 
#019 
#021 
#023 
#025 
#027 
#029 
#031 
#033 
#035 
#037 
#039 
#041 
#043 
#045 
#047 
#049 
#051 
#053 
#055 
#057 
#059 
#061 
#063 
#065 
#067 
#069 
#071 
#073 
#075 
#077 


Hex 
$01 
$03 
$05 
$07 


Binary 

00000001 
%$00000011 
$00000101 
00000111 
%00001001 
00001011 
$00001101 
$00001111 
$00010001 
%$00010011 
%00010101 
$00010111 
00011001 
$00011011 
$00011101 
$00011111 
$00100001 
$00100011 
$00100101 
$00100111 
$00101001 
$00101011 
$00101101 
$00101111 
$00110001 
$00110011 
$00110101 
600110111 
$00111001 
$00111011 
$00111101 
$00111111 
$01000001 
$01000011 
$01000101 
601000111 
601001001 
$01001011 
$01001101 
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$60 
$62 


$66 
$68 


$80 
$82 
$84 
$86 
$88 
S8A 
S8C 
S8E 
$90 
$92 
$94 
$96 
$98 
SOA 
$9C 
SOF 


601001110 
01010000 
01010010 
601010100 
601010110 
01011000 
601011010 
601011100 
601011110 
601100000 
01100010 
701100100 
$01100110 
01101000 
01101010 
01101100 
601101110 
01110000 
401110010 
701110100 
01110110 
$01111000 
01111010 
01111100 
601111110 
10000000 
10000010 
610000100 
610000110 
410001000 
$10001010 
10001100 
$10001110 
%10010000 
10010010 
$10010100 
$10010110 
10011000 
$10011010 
$10011100 
$10011110 
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#129 
#131 
#133 
#135 
#137 
#139 
#141 
#143 
#145 
#147 
#149 
#151 
#153 
#155 
#157 
#159 
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Binary 

$01001111 
$01010001 
$01010011 
$01010101 
4601010111 
$01011001 
$01011011 
$01011101 
$01011111 
01100001 
$01100011 
$01100101 
$01100111 
$01101001 
$01101011 
$01101101 
4601101111 
$01110001 
$01110011 
$01110101 
$01110111 
$01111001 
$01111011 
$01111101 
601111111 
$10000001 
$10000011 
$10000101 
$10000111 
$10001001 
%$10001011 
$10001101 
$10001111 
610010001 
$10010011 
$10010101 
$10010111 
$10011001 
$10011011 
$10011101 
$10011111 
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Binary 

$10100000 
%$10100010 
$10100100 
$10100110 
$10101000 
%$10101010 
$10101100 
$10101110 
$10110000 
$10110010 
$10110100 
%$10110110 
$10111000 
$10111010 
%$10111100 
%$10111110 
$11000000 
$11000010 
$11000100 
$11000110 
%$11001000 
$11001010 
%$11001100 
%$11001110 
$11010000 
$11010010 
$11010100 
%$11010110 
$11011000 
$11011010 
$11011100 
%$11011110 
$11100000 
%$11100010 
%$11100100 
%$11100110 
%$11101000 
$11101010 
%$11101100 
$11101110 
$11110000 
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#225 
#227 
#229 
#231 
#233 
#235 
#237 
#239 
#241 


Binary 

$10100001 
$10100011 
$10100101 
$10100111 
$10101001 
$10101011 
$10101101 
%$10101111 
%$10110001 
$10110011 
%$10110101 
$10110111 
$10111001 
%$10111011 
$10111101 
10111111 
$11000001 
$11000011 
%$11000101 
$11000111 
$11001001 
%$11001011 
%11001101 
$11001111 
$11010001 
$11010011 
$11010101 
$11010111 
$11011001 
$11011011 
$11011101 
$11011111 
$11100001 
$11100011 
$11100101 
%$11100111 
$11101001 
$11101011 
$11101101 
$11101111 
$11110001 
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611110010 
611110100 
611110110 
411111000 
611111010 
611111100 
611111110 
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611110011 
611110101 
611110111 
611111001 
611111011 
611111101 
611111111 
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ATTRIBUT-RAM 
BACKGROUND COLOR 
BASE ADRDESS 
BANK 

BASIC-7.0 

BASIN 
BAUD-RATE 
BCD-FORMAT 
BIT-MAP 
BLOCK-CURSOR 
BOOT-BLOCK 
BOOT-ROUTINE 
BOOT-SECTOR 
BSOUT 

BURST 

C-64 MODE 

C-128 MODE 
CARTRIDGE 
CASSETTE 
CBM-CODE 

CHAR GENERATOR 
CHAR-MODE 
CHARACTER-ROM 
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73, 79, 80, 81 
73, 83 


97, 108, 120 

112 

101 : 

139, 155, 297, 303 
24, 34, 43, 52, 65, 75 


1 

152, 188, 387, 400 
188 

348 

365, 367 

400, 458 

300, 400 

13, 302, 413 

4, 324, 351, 372 


189 

40, 107, 290, 438 
38, 45, 107 

451 

354 

414 

415 

55, 56, 59, 63, 179, 451 
35, 63, 80, 451 
38, 40, 64, 80 
310 

355 

359 


66 
64, 67, 143, 312 
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CLOSE 

CLRCH 

CMPARE 

CMPFAR 

CNT 

COLOR-RAM 
COMMON-AREA 
CONFIGURATION 
CONFIGURATION INDEX 


CONFIGURATION REGISTER 


CP/M-MODE 


CURSOR 

CURSOR MODE 

DATA 

DATASETTE 

DCLCH 

DDR 

DECAY 
DEVICE-REQUEST-FAST 
DISK DIRECTORY 


EDITTOR 
ENVELOPE GENERATOE 
ESC-SEQUENCE 
EXPANSION-PORT 
EXROM-LINE 
EXTENDED-COLOR-MODE 
FAST-MODE 

FETCH 

FILTER 

FILTER FREQUENCY 
FILTER RESONANCE 
FLAG 

FORCE-LOAD 
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356 

359 

144, 147, 296, 383 
3 


399 

3, 182, 458, 463 
138, 143, 464 
131 


10, 12, 64, 113 
181 


113 
64, 66 
4 


400 
56, 57 
77, 83, 84 
69 


233 
438 
13, 152, 380, 400 
38 


133, 182, 301 
50 


67, 313, 364, 400 
144, 145, 296, 380 
78, 79, 87 

78-87 

78-87 

55,59 
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FUNCTION KEYS 
GAME-LINE 
GETCONF 

GO64 

GRAPHICS 
GRAPHIC MEMORY 
HANDSHAKE 
HI-RES-GRAPHIC 
HI-RES-MODE 
HOST-REQUEST-FAST 
HRE 


VO BASE 
VO-PORTS 
ICR 
INPUT-MODE 
INTERRUPT 
IRQ 
IRQ-ROUTINE 
IRQ-VECTOR 


IRR 
JMPFAR 


JOYSTICK 
JSRFAR 


KERNAL-ROUTINES 


MEMORY-MANAGEMENT 
MMU 


MODE-CONFIGURATION 
MONITOR 

MOVSPR 
MULTI-COLOR 
MULTI-COLOR-MODE 
NDAC 
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260, 285, 292, 400, 421 
133, 182 

147, 156, 400 

182 

41, 120 

120, 121, 421, 422, 423 
0 


1 
109, 120-126 
42, 109, 120-126 


35, 180 

143, 180, 296 
240, 391, 399 
179, 344 


35 
148, 156, 294, 296, 383, 
400 


63, 65 

148, 156, 294, 296, 383, 
400 

144, 151, 400, 401, 402, 
427 

392, 393, 396, 397, 451 


254, 457 

129, 145, 468, 469 

129, 136, 139, 146, 294, 
454, 463, 466 
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NMI 


NMI-ROUTINE 
ONE-SHOT 

OPEN 

PADDLE 
PAGE-POINTER 
PHOENIX 

POKE 

POSITION 

POTX 

POTY 

PRA 

PRB 

PRINT 

RAM 

RAM-BANK 
RAM-CONFIGURATION 
RASTER LINE 
RDTIM 

READST 

RELEASE 

RESET 
RING-MODULATION 
ROM 

RS-232 

RTS 
RUN/STOP-RESTORE 
SAVSP 

SCROLL 

SDR 

SECONDARY ADDRESS 
SERIAL BUS 
SETBANK 


SLOW-MODE 
SMOOTH-SCROLLING 
SPRITE 
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143, 178, 296, 298M 321, 
399 

323, 391 

61 


93, 422 

131, 135, 136, 297 
131, 132, 134 

25 

374 

377 

78, 83, 84 

66, 182, 293 

88 

40, 474 

8, 12, 64, 314, 352 
64 


67, 109 

370 

276 

58, 59, 60 

69, 161, 309 
65, 66, 353, 360 
400 


374 | 
73, 75, 76, 80, 87, 100, 42 
67 


51, 110 
21, 22, 25-34,'36, 312, 425 
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ST 

STACK POINTER 
STASH 

STATUS BYTE 

STOP 
STOP/RESTORE 
STOP BIT 

SUSTAIN 
SYNCHRONIZATION 


SYSTEM CONTROL MESSAGES 


SYSTEM VARIABLE 
SWAPPER 

TIMER 

TKSA 

TOD 
TOD-REGISTER 


UNTLK 
UPDATE-ADDRESS 
UPDATE-REGISTER 
USER-PORT 

VDC 

VDC-CHIP 
VDC-RAM 
VDC-REGISTER 
VDC-MEMORY 
VECTOR 

VECTOR TABLE 
VERIFY 
VERSIONS-REGISTER 
VIC-CHIP 


VIDEO-CONTROLLER 
VIDEO-RAM 

WAVE FORM 

ha COUNT-REGISTER 
ZERO PAGE 

40 COLUMN 

80 COLUMN 


12, 74 

136, 137, 148 

144, 146, 296, 380 
166 

177, 375 

63, 178 

10 

78, 83, 84 


309 

55, 57, 58, 61 
57,58 

435 

373 

67, 68, 69, 164, 310 
67, 68, 69, 164, 310 


93, 95-110, 298, 299, 303 
161, 413 

294 

365 

139 | 

19, 24, 25, 27, 35, 38, 51, 
5 | 


133, 182, 184 
136, 404 

476 

478 


Abacus Software C-128 Internals 





Optional Diskette 


C-128 INTERNALS 
7 Optional diskette 
ie | B | 





For your convenience, the program listings contained in this book are 
available on a 1541 formatted floppy disk. 


You should order the diskette, if you want to use the programs, without 
typing them in from the listings in the book. 


All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 + 
$2.00 ($5.00 foreign) for postage and handling. 


When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 


Abacus Software 
P.O. Box 7211 
Grand Rapids, MI 49510 


Or for fast phone service, call 616/241-5510. 
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With ROM listings — For the programmer With ROM listings Especially for the '128 
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? : d CAD techniques using 
For two years a best Favorite amon ro- Quickhitting, easy-to- All time best seller. Brand newl Compiete intro to computers an 

seller. C64 internals — grammers. 750004 use routines for every Revised & expanded. maintenance and repair world of science. Real C-128/C-64. Many pro- 
WIROM listings. $19.95 sold worldwide. $19.95 C-64owner. $14.95 ROMlistings. $19.95 procedures. $19.95 examples. $19.95 gram examples. $19.95 
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Mostin depth treatment = into to machine lan- Techniques never cov- All about using printers A must for cassette Write your own adven- Dozens of interesting 
available. Dozens of guage geared to C-64. ered before interrupts, and ‘64. Graphics, text, owner. Hi speed cas- tures. Learn strategy, pro-ects for your ‘64. 
techniques. $19.95 Assembier incl. $14.95 controllers, etc. $14.95 interfaces. $19.95  settesystem. $19.95 motivation. $1495 Easy to read. $12.95 


OPTIONAL DISKETTES 
are also available for 
each of our book titles. 
Each diskette contains 
the programs found in the 
book to save you the time 

of typing them in at the Haim 
keyboard. Price of each iim 
diskette is $14.95. : 
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Learn to design and 
write your own compiler. 
With examples. $19.95 





Call now, for the name of your nearest dealer. Or order 
directly from ABACUS with your MC, VISA or AMEX card. 
Add $4.00 for postage and handling. Foreign orders add 
$6.00 per book. Other software and books are also avail- 
able. Call or write for free catalog. Dealer inquiries welcome 
- over 1200 dealers nationwide. Call 616 / 241-5510 


Abacus Software 


P.O. Box 7211 Grand Rapids, MI 49510 


Phone 616/241-5510 Telex 709-101 
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XPER - saa 
: Ordinary data bases ‘are good atmemor-. 9. 
izing and playing back facts. But expert. 


- PowerPlan. . SUPER SPREADSHEET 


* oe “Start with an easy to. learn spreadsheet, 
“..- eonvenient 
-.”. géreens. Add fast, shortcut commands for. 


menus .and 90+. help 


| Bats weve \\Z-laters\e BUI- 1a Build in a full range of 


. flexible features for use with complex 
e worksheets. Combine han Uneamme|c=\elalecm els 


oe 2D/3D.charts and graphs so you can 


oh _: display’ your "what-if! data both visually 
“sand: ‘numerically. Finally price it low 
enough: for everyone's budget. That's 
ee what We" call HOW eUU software. $49.95 
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KNOWLEDGE - -BASE.. -sotmwane: 


systems help you. wade through. hun- ~ 
dreds of items to make important ol 


cisions. XPER has an easy-to-use entry —. 


Yel tol am Commel OI (eld iam olOlI(o Ma VZole Ts knowledge 
base from raw information; a sophis- 


ticated inquirer to guide you through the * 


complex decision-making. criteria; 


complete. ‘data. editing...and: ‘reporting - oof 
features for analyzing your. data. $59. 95 


- Gall n now lg free software and book catalog and the name of your local dealer. It he i ise, 
“out-of stock, have your dealer order our. quality products for you. To order by credit. 
card: call 616/241-5510. We accept MC, VISA and AMEX. Add $4.00 postage. ahd ae 
: handling as order foreign, $8.00 per item). Michigan residents add 4% sales tax 


_P. 0. Box. 724 1 Grand 1 Rapids, MI A923 10" For Fast Service. Call, (61 6). 241. 5510, 





int start, end, step; 
double fahr, celsius; 
start=-50, 

end-S0, 

stap~10; 


celsius=start 

while( celsius<=end ) 

{ fehr=(9.0/5.0)’celsius +32.0; 

printt("%4.00% 7. 1fin" celsius, fahr); 
colsius=colsius+step; 


aos ‘Most. ‘advanced C- package fot” 


upé 
= the. (om .64/C- 128. Since Super | C ‘supports 
, the. full’ K&R language. (w/o, bit: fields), 
“programs. are. transportable to . other. 
‘computers. -It's a-perfect.learning tool for: 
~schools and industry. Super C: package 
‘includes a: ‘complete source 6ditor. with: 80. 
column display using horizontal -scrolling, 
. geatch/replace, 41K source ‘files. Linker — 
- binds up to 7.separate modules.: ‘/O.- library” 
supports. standard: functions: like printf. and . 


printt. Includes runtime Package. $79.95 —— 


Super Pascal - 


tull Jensen & Wirth. compiler; 
programming -; 


Compiler and Software 
Development System 


Grigrbdip ng tatal pdr he 


; 
é 
+ 
‘ 


IN Toy ane isyt a compiler, but a ~ 
fofolanle}(s(c development system: It-rivals even 


Turbo Pascal© in features. Super Pascal 


includes an advanced ' source file editor; 

. 2vetem 
extensions, a builtin 
assembler for specialized. requirements, 


-and a new-high speed DOS which is 3X 


faster than standard 1541. Produces fast 
machine code. Supports program overlays, 
. high precision 14 colette Uh alata ccomme(-lel0leleliale me 
tools, graphic routines and - more. $59.95 


hie 1 


Call now for our ir free ectiwats and book catalog and the name of 
your nearest dealer: !f.he's out of stock, have him order our 
products for you. Credit card orders ‘call 616/241-5510. Add 


$4.00 shipping claTeM at-lalelliavem oL-1melcolc1s (foreiqn.add $8.:00/item). 


0 Fam =\0) ana | Grand Rapids, 
For fast service. call 616/241-5510 
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POWER PLAN 







Powerful spread- 
sheet plus builtin 
graphics - display 
your important data 
visually as well as 
numerically. You'll 
learn fast with the 
90+ HELP screens. 
Advanced users 
can use the short- 
cut commands. For complex spreadsheets, 
you can use POWER PLAN's impressive 
features: cell formatting, text formatting, cell 
protection, windowing, math functions, row 
and column sort, more. Then quickly display 
your results in graphics format in a variety of 
2D and 3D charts. Includes system diskette 
and user's handbook. | $49.95 
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CADPAK isa 
superb design and 
drawing tool. You 
can draw directly on 
the screen from 
keyboard or using 
optional lightpen. 
POINTs, LINES, 
BOXes, CIRCLEs, 
and ELLIPSEs; fill 
with solids or patterns; free-hand DRAW; 
ZOON- in for intricate design of small section. 
Mesuring and scaling aids. Exact positioning 
using our AccuPoint cursor positioning. 
Using the powerful OBJECT EDITOR 
you can define new fonts, furniture, circuitry, 
etc. Hardcopy to most printers. $39.95 
McPen lightpen, optional $49.95 





















CHARTPAK 





Make professional 
quality charts from 





OONESTIC AUTO SALES 
400 (=GENERAL MOTORS 





your data in 
minutes. Quickly 
enter, edit, save 
Ay ihe. |Nen Nee Ig | and recall your data. 
ANE ) ug u va 41 Then interactively 
05 08 creo veer, | build pie, bar, line or 

scatter graph. You 

can specify scaling, 
labeling and positioning and watch 
CHARTPAK instantly draw the chart in any 
of 8 different formats. Change the format 
immediately and draw another chart. 
Incudes statistical routines for average, 
deviation, least squares and forecasting. 
Hardcopy to most printers. $39.95 
CHARTPLOT-64 for 1520 plotter $39.95 
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CADPAK Revised Version 











XPER - expert system 

XPER is the first 
expert system-a 
new breed of 
intelligent software 
for the C-64 & C- 
128. While ordinary 
data base systems 
are good at repro- 
ducing facts, XPER 
can help you make 
decisions. Using its simple entry editor, you 
build the information into a knowledge base. 
XPER's very efficient searching techniques 
then guide you through even the most 
complex decision making criteria. Full 
reporting and data editing. Currently used 
by doctors, scientists and research 
professionals. $59.95 






How much 






ers you 
willing 
to spend? 







Eapensive. 
What kind 
of styling? 





DATAMAT - data management 


"Best data base 
manager under $50" 
RUN Magazine 


INVENTORY FILE 


Description 


Price j 

Easy-to-use, yet 
versatile and power- 
ful features. Clear 
menus guide you 
from function to function. Free-form design 
of data base with up to 50 fields and 2000 
records per diskette (space dependent). 
Simple data base design. Convenient and 
quick data entry. Full data editing 
capabilities. | Complete reporting: sort on 
multiple fields and select records for printing 
in your specific format. $39.95 


Reord, Qty. 





‘TAS - technical analysis | 


Technical analysis 
charting package to 
help the serious 
investor. Enter your 
data at keyboard or 
capture it through 
DJN/RS or Warner 





Services. Track 
high, low, close, 
volume, bid and 


ask. Place up to 300 periods of information © 
for 10 different stocks on each data diskette. 
Build a variety of charts on the split screen 
combining information from 7 types of 
moving averages, 3 types of oscillators, 
trading bands, least squares, 5 different 
volume indicators, relative charts, much 
more. Hardcopy to most printers. $59.95 








The most advanced 
C development 
package available 
for the C-64 or C- 
128 with very com- 
plete source editor; 
full K&R compiler 
(w/o bit fields); 
linker (binds up to 
7 separate mod- 
ules); and set of disk utilities. Very complete 
editor handles search/replace, 80 column 
display with horizontal scrolling and 41K 
source files. The I/O library supports 
standard functions like printf and fprintf. Free 
runtime package included. For C-64/C-128 
with 1541/1571 drive. Includes system 
diskette and user's handbook. $79.95 





BASIC-64 


full compiler The most advanced 
BASIC compiler 
ADVANCED DEVELOPMENT PACKAGE available for the C- 
acaba. Aimee rani 64. Our bestselling 
Soi amnee amc cee software product. 

= coneeSTaATs Compiles to super- 
~ extension: stwons oasre fast 6510 machine 
Sree” i004 code or. very 
= OVERLAY: a compact speed- 
code. You can even 
mix the two in one program. Compiles the 
complete BASIC language. Flexible memory 
management and overlay options make it 
perfect for all program development needs. 
BASIC 64 increases the speed of your 
programs from 3 to 20 times. Free runtime 


| package. Includes system diskette and 





user's handbook. $39.95 
FORTH 

Our FORTH lang- 

Language uage is based on 


ScR # 20 the Forth 79 


© P ¢( RANDOM NUMBER TESTER FRND } 


1 © FORTH DEFINITIONS DECIMAL standard, but also 


2 P : ?RND 


( INITIALIZE FIRST SCREEN) includes much of 


1024 1000 ASCII 0 FILL 


BEGIN the 83 level to give 


1000 RND ( RANDOM 0.999) 


(cous, uuxer FT YOU 3 times vocabu- 


( EXCMANCE) 


tenance lary of fig-Forth. 


reopen Includes full-screen 
editor, complete 


Forth-style assembler, set of programming 
tools and numerous sample programs to get 
you deeply involved in the FORTH 
language. Our enhanced vocabulary 
supports both hires and lores graphics and 
the sound synthesizer. Includes system 
diskette with sample programs and user's 
handbook. $39.95 
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Compiler and Software but a complete 





VIDEO BASIC 








For fast service call 616/241-5510. For postage 


Not just a compiler, 


development sys- 
tem. Rivals Turbo 


Pascal© in both 
speed and features. 
Produces fast 6510 
machine code. 
Includes advanced 
source file editor; 


full Jensen & Wirth compiler with system 
programming extensions, new high speed 
DOS (3 times faster); builtin assembler for 
specialized requirements. Overlays, 11-digit 
arithmetic, debugging tools, graphics 
routines, much more. Free runtime 
package. Includes system diskette and 
complete user's handbook. $59.95 





development The most advanced 
s graphics develop- 
ment package avail- 
able for the C-64. 
Adds dozens of 
powerful commands 
to standard BASIC 
so that you can 
use the hidden 
graphics and sound 


capabilities. Commands for hires, multicolor, 
sprite and turtle graphics, simple and 
complex music and sound, hardcopy to most 
printers, memory management, more. Used 
by professional programmers for commerical 
software development. Free runtime 
package. Includes system diskette and 
user's handbook. $39.95 


Other software also available! 
Call now for free catalog and the name of your 
nearest dealer. Phone: 616/241-5510. 


Abacus Software 


P.O. Box 7211 Grand Rapids, MI 49510 616/241-5510 


TUTTE: 


and handling, include $4.00 per order. Foreign 


orders include $8.00 per item. Money orders and 
checks in U.S. dollars only. Mastercard, Visa and 


Amex accepted. 


Dealer Inquiries Welcome 


More than 1200 dealers nationwide 
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Manage your IVioney 
on your Commodore 128 or 64. 
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Sick 06/30/1985 75.00 
Soh W Ca E Swck 09/30/1985 65.00 
SE ep Tax GM Swck 09/30/1985 $0.00 
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Personal Portfolio Manager Technical Analysis System 
° online data collection thru DJNRS or ~» online data collection thru DJNRS or 


Warner Computer or manual entry Warner Computer or manual entry 
* manage stocks, bonds, options, mutual « 7 moving averages, 5 volume indicators, 
funds, treasury bills, others. least squares, trading band, comparison 
* record dividends, interest and transactions and relative charts, more. 
for year end tax requirements ¢ 300 trading days for up to 10 stocks per 
° unique report generator produces reports _—_ disk. Unlimited number of disks 
in any desired format ¢ Hardcopy of charts 
° 30 day money back guarantee « 30-day money back guarantee 
$39.95 + $4.00 shipping $59.95 + $4.00 shipping 





Abacus 


P.O. Box 7211 Grand Rapids, MI 49510 Phone 616/241-5510 Telex 709-101 








COMMODORE 


THE AUTHORITATIVE 
INSIDERS’ GUIDE 






This book guides you deep into the heart of the Commodore 128. 128 Internals 
is written for those of you who want to push your computer to the limits. This book 
contains the complete, fully commented ROM listings of the operating system 
kernal. Here is a list of just some of the things that you can expect to read about: 


Using the interrupts 
Assembly language programming and Kernal routines 
Z-80 processor and the boot ROM 
Peripherals and the ports 
Programming for sound and music 
Programming the various graphic modes 
Understanding and using the Input/Output ports 
Programming the Memory Management Unit (MMU) 
Using the 80-column chip - 

getting 640 X 200 point resolution 

getting more than 25 lines on the screen 

smooth scrolling 

copying blocks in screen memory 

character length and width management 


About the authors: | 

Klaus Gerits is the Director of Product Development at Data Becker Software 
House. Joerg Scheib, a highly experienced programmer and book author, and 
Frank Thrun, an avid Commodore programmer, are also members of the Data 
Becker development staff based in Duesseldorf, W. Germany. 


ISBN 0-9164439-42-95 





A Data Becker book published by 


Software 





